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Preface 


Кы уо со ο ον ολ τες ο ο 2... 


Many people look at game playing оп а computer аз а waste of time; 
unfortunately, they do not realize that this type of activity stimulates 
the user's interest in computers and program writing and helps him 
better understand computers. 

Games should never be considered a waste of time because if 
they do nothing else, they teach the user something within the realm 
of the game whether it be reaction, calculation, logical reasoning or 
use of mathematical ideas. 

Of course, the easiest way to learn about BASIC or about 
computers is to play with them, and games provide an excellent 
channel for this type of expression. 

I would like to thank Peter for all his help and advice, and 
especially thank Bill and Dan for their infinite patience with me. 


Ken Tracton 
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Section | 
Computer Games In BASIC 


ο ολλ πω το «ο ο ИИ НИНЕ 


This section contains 24 games in BASIC Юг your home computer. 
These games serve as exercises to increase your knowledge of 
programming in BASIC language and your working knowledge of 
what your computer can do. 

Some games are word games. Others are combat or chase 
games where you're on search and destroy missions. Number 
games include guessing games and plotting routines. Some games 
show graphics displays while others are designed to be of practical 
use. 

All games include a flowchart, sample run and program listing. 
All programs will run in 8К of memory (not including BASIC) except 
for Star Warp which requires 20K. 

Information is included on which programs can be used on a 
Radio Shack TRS-80 computer. Section II contains actual program 
listings for some of the games for a TRS-80 or РЕТФ 


WUMPUS 


The wumpus is asleep somewhere in his cave of 20 rooms. You 
must track him down and shoot him with one of your five arrows. 
The trick is in not getting eaten by the wumpus, being taken to 
another room by a super bat, or falling into a bottomless pit during 
the hunt. Also, be sure to avoid shooting yourself with an arrow! 


SET UP 
| NEW 
POSITION 


MESSAGE MESSAGE 


POSITION STOP 


Flowchart for Wumpus 


Sample Вип 


INSTRUCTIONS? (Y-N) 
Dé É Y 


WELCOME ΤΩ “HUNT THE МОМРЦ87 

THE ШОМРО LIVES IN A CAVE OF 20 ROOMS. EACH ROOM 
HAS 3 TUNNELS LEADING INTO OTHER ROOMS. (LOOK AT A 
puOnECAMEDRON TO SEE HOW THIS WORKS УТЕ YOU TON’ T KNOW 
WHAT A QUOT CAME DEON Dos AER SOMEONE? 


HAS ARTES 
BOTTOMLESS PIS THERE АКЕ 2 OF THESE 
FALL. INTO ONE: ANT YOU WILL LAND IN CHINA 
SUPER BATS - TWO OTHER ROOMS HAVE SUFER BATS. IF You 
GO THERE» A BAT GRABS YOU AMD TAKES YOU TO SOME OTHER 
ROOM AT RANDOM. (WHICH MIGHT BE TROUBLESOME) 
WLM LES 
THE WUMPUS 15 МОТ BOTHERED BY THE HAZARIS (НЕ HAS SUCKER 
FEET АМП TS TOO BIG FOR ñ ВАТ TO LIFT. USUALLY 
HE IS ASLEEP. TWO THINGS WAKE HIM UP» YOUR ENTERING 
HIS ROOM OR YOUR SHOOTING AN ARROW, 
IF THE WUMPUS WAKES» HE MOVES (P=.75) ΟΝΕ ROOM 
ОК STAYS STILL (Pea 24012 AFTER THAY» IF HE IS WHERE YOU 
ӘКЕ» HE EATS YOU UP { & YOU ΡΕ) 


YOU 
EACH TURN YOU MAY MOVE OR SHOOT а CROOKED ARROW 

MOVING YOU CAN GO OME ROOM (THRU ONE TUNNEL? 
ARROWS YOU HAVE 5 ARROWS. YOU LOSE WHEN YOU RUN QUT. 
EACH ARROW САМ GO FROM 1 TO 5 ROOMS. YOU AIM BY TELLING 
THE COMPUTER THE ROOMS TOU WANT THE ARROW TO GO TQ. 

ТЕ THE АККОШ CAN T GO THAT WAY (IE NO TUNNEL? IT MOVES 
AT RANDOM TO THE NEXT ROOM. 

IF THE ARROW HITS THE WUMPUSs YOU WIN. : 

IF THE ARROW HITS YOU» YOU LOSE. 


WARNINGS 

WHEN YOU ARE ONE ROOMS AWAY FROM THE WUMPUS OR HAZARD» 
THE COMPUTER SAYS 

WUMPUS = ‘TI SMELL А WUMPUS? 

BAT = ‘BATS NEARBY’ 

PIT — “Ὁ FEEL А DRAET: 


HUNT THE WOMPUS 


YOU ARE IN ROOM 2 
TUNNELS LEAD TO 1 3 10 


SHOOT OR MÜVE P (BF) 
P M 

OKAY?» WHERE TO NOW? 

T 3 


I FEEL A DRAFT! 
YOU ARE IN ROOM 3 
TUNNELS LEAD TO 2 4 Le 
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SHOOT OR MOVE % (5-М) 

? M 

OKAY, WHERE TO NOW? 

? 4 

à PIT» CHINA HERE I COME 1111111 

DUMMY» YOU LOSE» WUMPII JUST LOVE YOU!!! 
SAME SET UP? (Y-ND 

TONES 

HUNT THE WUMPUS 

I SMELL A WUMFUS! 

YOU ARE IN ROOM 15 

TUNNELS LEAU TQ ὁ 14 16 


SHOOT ОК MOVE T (S-M) 
? M 

| ОКАТ! WHERE ТО NOW’? 
? 16 


YOU ARE IN КООМ 16 
TUNNELS LEAD TQ 19 12 20 


SHOOT OR MOVE P (5-М) 

TM 

OKAY» WHERE TO NOW? 

T = 

I SMELL А WUMPFUS! 

YOU ARE IN КООМ 15 

TUNNELS LEAD TO ó 14 16 


SHOOT OR MOVE ? (5-М) 

? 14 

SHOOT OR MOVE ? (S-M) 

? M 

OKAY» WHERE TO NOW? 

? 14 

DUMMY» YOU BUMPED INTO А WUMPUS!! 

Г SMELL А WUMPUS! 

BATS NEARBY 

YOU ARE IN ROOM 14 

TUNNELS LEAL TO 4 13 15 
SHOOT OR MOVE ? (S-M) | 

Ῥ 5 

NUMBER OF ROOMS? (1-5) 

ROOM 47 4 

ROOM: d? 13 

ана! YOU GOT THE WUMPUS! 

OKAY HOT SHOT, THE WUMPII WILL GET THEIR REVENGE 
WUMPII SPIRITS WILL HAUNT YOU “TILL THEN 

SAME SET UP? (Y-N) 

? NO 

HUNT THE WUMPUS 
I SMELL ñ WUMFUS! 

YOU ARE IN ROOM 18 

TUNNELS LEAD TO 9 17 19 
SHOOT OR MOVE ? (S-M) 

? 8 


NUMBER OF ROOMS? (1-39 
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Program Listing 


10 REM HUNT THE wUMPUS 


30 ΡΜΙΝΙ "INSTRUCTIONS? (Y-N)! 

40 INPUT 15 

SO IF I$stn" THEN 70 

60 бОб\н 670 

70 DIM 5(20%3) 

'80 FOR Js] To 20 

190 FOR Az] TO 3 

100 READ S(J»K) 

110 NEXT к 

120 мЕХТ J 

130 DATA 0%45»8%193%10»2»4%12»3%5»19%1»94»96 

140 DATA 5,7.15.6,8» 17» | «759.810» | Но?» 9» | 1 

150 DATA 10%12919%3%11913»12»14%20»9%143%15»96%4108%16 
160 DATA 15%17»2097%916%18»9%17919911418»20913»16%19 
170 DEF FNA(X)zINT(20*HND(UO) *1) 

180 DEF FNR(X) Z INT (3*KNU (0) +1) 

190 DEF FNC(X) INI (44RND (0) +1) 

200 “ЕМ LOCATE L ARRAY ITEMS 

210 кем 1sYOU,.2zwUMPUS.3A4zPITS. S&OzRATIS 

220 DIM L(A) 

230 01м M(6) 

240 FUR y= 1 TO 6 

250 LJ) =FNA(O) 

260 м(Ј) = L (J) 

270 NEAT J 

26280 REM CHECK FOR CROSSOVERS 

290 FOR Yel To 6 

300 FOR қа) TO 6 

310 IF J=K THEN 330 

320 IF Ltd) = L(K) THEN 240 

330 NEXT κ 

340 NEXT J 

350 REM SET ARROWS 

360 4:5 
370 LsL (1) 

380 НЕМ KUN THE GAME 

390 PRINT "BUNT THE WUMPUS" 
G00 PRINT Ao ell 
810 REM HAZARD WARNINGS AND LOCATIONS 
420 GO SUR 1090 
|830 REM MOVE OR SHOOT 
840 GO SUB 1280 
‘450 IF O = 1 THEN 470 
460 IF С = 2 THEN 510 
470 GO SuB 1370 
480 IF Е=0 THEN 420 
490 GO То 530 
509 REM MOVE 
510 GO SUB ›1880 
520 IF F=0 [HEN 420 
530 IF F»0 THEN 580 
540 REM LOSE 
550 PHINI'"DUMMY., YOU LOSEs WUMPII JUST LOVE YOU!!!" 
560 GO TO 600 

570 REM wIN 

580 PRINT"OKAY HOT SHOT» ІНЕ WwUMPII WILL GET THEIR REVENGE" 
590 PRINT'"WUMPII SPIRITS WILL HAUNT YOU 'TILL THEN" 
600 FOR yal TO 6 

610 L (J)=M(J) 
820 NEXT J 
'630 PRINI "SAME SET UP? (Yen) " 
640 INPLT I$ 

650 IF I»«»"Y" THEN 240 

660 GO To 360 
670 REM INSTRUCTIONS 

680 PRINT '"wELCOME TO tHUNT TRE wUMPUS'' 

650 PRINT Ü THE wUMPUS LIVES IN A CAVE OF 20 ROOMS, EACH ROOM" 
700 PRINT "HAS 3 TUNNELS LEADING INTO OTHER ROOMS, (LOOK AT A" 
710 PRINTI"DLODECAHEDRON TO SEE HOW THIS WORKS «ΙΕ Үсу DON'T KNOW! 
720 PRINT "WHAT A DUODECAHEDKON 15» ASK SOMEONE)" 
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730 
740 
750 
1760 
770 
780 
790 
800 
810 
820 
830 
Ra 0 
850 
860 
870 
aad 
890 
909 
919 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 


1120 


1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
] 380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 


PHINI 

PRINI" HAZARDS " 

PRINT'BOTTOMLESS PITS» THERE АКЕ 2 OF TRESE" 

PRINI"FALL INIO ONE» AND YOU wiLL LAND IN CHINA" 

PRINT" SUPER BATS = TwO OTHER ROOMS HAVE SUPER HATS. IF YOU! 


PRINT " GO ТНЕКЕ» А BAT GRABS YOU AND TAKES YOU TO SOME OTHER" 
PRINT " ROOM АТ KANDOM, (WHICH MIGHT BE TROUBLESOME)" 

PRIN Í 

PRINT" WUMPUS " 


PRINT " THE wuMPUS IS NOT ROTHERF) BY THE HAZARDS (HE НАЗ SUCKER" 
PKINI " FEET AND IS TOO BIG FOR А ВАТ [O LIFT). USUALLY" 

PRINT w HF IS ASLEEP. TwO THINGS МАКЕ HIM UP, YOUR ENTERING" 
PRINI " HIS ROOM OR YOUR SHOOTING ΑΝ ARROW." 

PRIN: " IF THE WUMPUS WAKES* HE MOVES (Р=.75) ONE ROOM 

PRINT " OR STAYS STILL (ΡΞε65}» AFTER THAT, IF FE IS WHERE YOU" 
PRINT " ARE» HE FATS YOU LP ( è YOU LOSE!) 


PRINT 

PRINT " YOU " 

PRINT ' EACH TURN YOU MAY ΜΟΝΕ OR SHOOT А CROOKED ARROW" 

PRINT " MOVING YOU CAN GO ONE ROOM (THRU ONE TUNNEL)" 

PRINT " ARROWS YOU HAVE 5 ARROWS. YOU LOSE WHEN YOU RUN QUT," 
PRINT " EACH ARROW САМ GO FRUM 1 TO 5 ROOMS. YOL AIM BY TELLING" 
PRINE " THE COMPUIER TRE HOOM/S TOU wANT IHE ARROw TO GO TO." 
PRINT " ΤΕ THE ARROW CAN'T GO THAT WAY (IE NO TUNNEL) IT MOVES" 
PRINT " AT RANDOM TO THE NEXT KOUM." 

PRINT " IF THE AKROW HITS ΤΗΕ wUMPLSs YOU WIN," 

PRINT " IF ΤΗΕ ARROW HITS YUU, YOU LOSE." 

PRINT 

PRINT " WAKNINGS " 

PRIN] " ИНЕМ YOU ARE ΟΝΕ RUOMS AWAY FROM THE WUMPUS OR HAZARD." 
PRINT " ІНЕ COMPUTER SAYS " 

PRINI " wUMPUS = 81 SMELL A wUNPUS'" 

PRINT 9 BAT =  *'HAIS NEARBY?" 

PRINT " PIT = ‘I FEFL А DFAF I ! W 

PRIN] " " 

RETURN 

REM PRINT LOCATION AND HAZARD WARNINGS 

PRINT 


FOR Js2 In 6 

FOR к=] TO 3 

IF S(L (1) K) <> (J) THEN 1220 
IF Jjzë2 THEN 1170 

IF Jz3 OR J=4 THEN 1190 

IF 1:5 OR Jz6 THEN 1210 
PRINT "I SMELL A WUMPUSI" 

GO Tu 1220 

PRINI "I FEEL А DRAFT!" 

GO TO 1220 

PRINTHRATS NEARBY" 

МЕХТ К 

МЕХТ J 

PRINT "YOU ARE IN ROOM "šL (1) 
PMINI "TUNNELS LEAD TO "3S(Lel) sS (Ls2) 95 (L3) 
PRINT 

RE TURN 

МЕМ CHOOSE OPTION 

Әкімі "SHOOT OR MOVE ? (Sem) " 
INPUT 1% 

IF Is«»"SUu THEN 1340 

О=1 

RETURN 

JF 1$«»"M" THEN 1290 

O=2 

RE TURN 

REM ARROW ROUTINE 

F=0 

НЕМ PATH OF ARROW 

DIM P (S) 

ΡΚΙΝΙ "NUMBER OF KOUMS? (1-5) " 
INPUT J9 

IF J9«] OR J9»5 THEN 1410 
FOR к=] 10 J9 

PRINT "ROOM af 3 

INPUT P (K) 

IF K<=2 ΤΗΕΝ 1510 

IF ВК) <> Р(Ке2) THEN 01510 
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1490 
1500 
1510 
1590 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 


PHINT"AHROWS ARE NOT SUPER MAGIC, BE REALISTIC" 
GO То 1450 

МЕХТ К 

REM SHOOT AKRUW 

ізі (1) 

FOR к=] TO J9 

FOR K] = 1 TO 3 

IF S(iLsK1) =Р (к) THEN 1720 
NËXT K1 

НЕМ NO TUNNEL FOR ARROW 
L=S(LeFNB(1)) 

60 То 1739 

NEXT к 

PRINT "MISSED"! 

L=L (1) 

МЕМ MOVE WUMPUS 

60 SUB 1800 

REM AMMO CHECK 

А = Am} 

IF A»0 THEN 1700 

F==1 

RETURN 

КЕМ SEE IF ARROW IS AT L(1) OR L (2) 
LzP(K) 

IF L«»L (2) THEN 1770 

РКІМІ НАНА! YOU GOT THE 4LMPUS!" 
Е = | 

RETURN 

IF L«»L (1) TREN 1610 

PRINI "OUCHITI!I ARROW GOT YOU! f 
GO То 1690 

КЕМ е MOVE wUMPUS ROUTINE 
K=FNC (1) 

IF К=4 THEN 1840 
L(2)=S(L (2) +K) 

IF ι (ο) «οι THEN 1870 
PRINI"wUMPUS GOT ЖА!!!» ULMMYt1 t1" 
F = el 

RETURN 

REM MOVE ROUTINE 

Fz0 

РмІМІЗОКАҮ» ΑΜΠΕΗΕ TO МОм?" 
INPUT L 

IF L«1 OK L>20 THEN 1909 

FOR к=| TO 3 

MEM CHECK IF LEGAL MOVE 

IF S(LCI),K)sL THEN 2010 

NEXT κ 

IF LzL (1) THEN 2019 

PMINI"AKE YOL РОН НЕА + TIFAT'S NOT POSSIBLE" 
GC To 1900 


REM CHECK РОН HAZARDS 

{ (1)=L 

КЕМ wUMPUS 

IF L«»L (2) THEN 2100 

PRINI'DuUMMYs YOU BUMPED INTO А wUMPUSIIM 
REM <+ MOVE wUMPUS 

GG SUB 1810 


IF F20 THEN 2100 

RETURN 

REM - БІТ 

IF L<>L(3) ANU L<>L (4) TREN 2150 

PRINIMA РТТ. CHINA HERE I COME 1111111" 
ze} 

RETURN 

MEM = BATS 

IF L«»L (5) ANU L«»L (6) TREN 2190 
PRINT"SUPFReBATS!11 GOODSLUCK11!1111* 

Lz=FNA(1) 

GO TO 8016 

RETURN 

END 


An adaptation of this program designed specifically for the 


Radio Shack TRS-80 computer using Level II BASIC can be found on 
page 183 in Section II. 
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SUB HUNT 


This game pits you against a nuclear enemy sub lurking in 
nearby seas. The area of conflict is a 10 x 10 unit grid, and the 
enemy can dive down to a depth of 10 units. Figure 1-1 helps you 
visualize the playing area. 

Your mission is to destroy the sub. You have a limited number 
of depth charges. This number changes from game to game, but you 
always will have at least 16. 

To destroy the sub, you must place the charge not only on the 
right coordinate but also fused for the right depth. 


INITIALIZE 
VARIABLES 
INPUT SHIP'S MOVE 
INPUT DEPTH CHARGE 


CHARGE UPDATE SUB 
RELEASED POSITION 


YES 
NO 


NO-CHARGE 
MESSAGE 
WINNING 
MESSAGE 
NO 


Flowchart for Sub Hunt 
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Fig. 1-1—The battle area is a 10 х 10 unit grid. You must place the depth charge 
on the right coordinate and also at the right depth. 


Sample Вип 


КУМ 
SUB HUNT 


WELCOME TO THE GAME ОҒ SUB HUNT 


THE ENEMY SUB MAY BE LURKING 
ANYUHERE UITHIN THE GRID. 


TO COMPLICATE FINDING IT AND 
DESTROYING IT WITH DEPTH CHARGES 4 
THE SUB CAN ALSO DIVE. 

DEPTH CHARGES MAY BE DROPPED 
ANYWHERE ON THE GRID, BUT 

THEY ARE NOT EFFECTIVE UNLESS 

THEY HAVE BEEN SET FOR THE RIGHT 
DEPTH. 

SINCE THE SUB CAN DIVE TO THE SEA 
BOTTOM, SO CAN DEPTH CHARGES BE 
SET FOR THIS DEPTH; 10 IS THE SEA 
BOTTOM, WHILE Ъ IS THE SURFACE OF 
THE SEA. 

THE SUB'S POSITION WILL BE UPDATED 
AFTER EACH MOVE. AS IT WAITS TO SEE 
WHAT YOUR MOVE IS. 

THE SUB. BEING NUCLEAR POWERED САМ 
STAY АТ ANY DEPTH. FOR ANY PERIOD OF 
TIME. 

TO DESTROY THE SUB. YOU MUST 

DROP THE DEPTH CHARGE NOT ONLY AT 
THE RIGHT COORDINATE. BUT IT MUST 
BE FUSED FOR THE RIGHT DEPTH. 

ΤΕ NOT, YOU HAVE WASTED A DEPTH 


CHARGE. 
YOU HAVE A DISADVANTAGE AND АМ 
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ADVANTAGE OVER THE SUB. 

THE DISADVANTAGE IS YOU'RE LIMITED 
το THE NUMBER OF DEPTH CHARGES 

YOU HAVE4 SINCE YOU HAVE BEEN AT 

SEA 50 LONG. 

THE ADVANTAGE IS THAT THE SUB CAN MOVE 
ONLY ONE SQUARE AT A TIME, AND ALSO 
ІТ CAN MOVE ONLY UP OR DOWN IN DEPTH 
ONE COORDINATE AT A TIME. 

GOOD LUCK4 COMMANDER. 

YOU. COMMANDER, ARE AT COORDINATES 1-1 
COMMANDER, WHERE DO WE SAIL FOR 

2 545 

COMMANDER. WHAT SETTING FOR DEPTH 
CHARGES A SETTING OF D RELEASES NO 
CHARGES 

? 5 

NELSON UOULD BE PROUD OF YOU 

YOU GOT THE DEVIL SUB... 

YOU STILL HAVE 4 DEPTH CHARGES 

ТО PLAY AGAIN TYPE 1¬ OTHERWISE D 

?ü 

THE COMPUTER KNEU YOU ШЕКЕ А LANDLUB- 
ВЕК. 

RUN COMPLETE. 
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Program Listing 


10 
20 
30 
uD 
50 
bÜ 
?0 
80 
90 
1DD 
11D 
120 
130 
140 
150 
Lb0 
170 
1.81 
130 


200 
210 


een 
230 


240 


REM THE GAME OF SUB HUNT 

REM THE SUB HUNT IS PLAYED 

REM ON A 10 X 10 GRID WITH 

REM THE ORIGIN ON THE LEFT 

REM TOP CORNER. 

REM THE X AXIS READS FROM 

REM 1 TO Ъ0 GOING LEFT TO 

REM RIGHT4 THE Y AXIS READS 

REM FROM 1 TO 10 GOING 

REM TOP TO BOTTOM, THEREFORE 

REM COORDINATE 10-10 IS THE RIGHT 
REM LOUER CORNER OF THE GRID 

REM SUBS ARE CRAFTY4 UATCH THEM 
REM CAREFULLY 

PRINT 

PRINT ''SUB HUNT'' 

PRINT 

PRINT 

PRINT ''UELCOME TO THE GAME OF 
SUB HUNT'"' 

PRINT 

PRINT ''THE ENEMY SUB MAY BE 
LURKING'' 

PRINT ''ANYUHERE WITHIN THE GRID.'' 
PRINT ''TÓ COMPLICATE FINDING IT 
AND'' 

PRINT ''DESTROYING IT UITH DEPTH 
CHARGES 4'' | 
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250 
сый 


270 


280 


290 


300 
31D 


320 


330 


340 


350 


350 


370 


380 


390 


400 


410 
420 
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PRINT ''THE SUB CAN ALSO DIVE.'' 
PRINT ''DEPTH CHARGES MAY BE. 
DROPPED'' 

PRINT ''ANYUHERE ON THE GRID, 
Βυτ'' 

PRINT ''THEY ARE NOT EFFECTIVE 
UNLESS'' 

PRINT ''THEY HAVE BEEN SET FOR 
ΤΗΕ RIGHT'" 

PRINT ''DEPTH.'' 

PRINT ''SINCE THE SUB CAN DIVE TO 
THE ЗЕА'' 

PRINT ''BOTTOM4 SO CAN DEPTH 
CHARGES BE'' 

PRINT ''SET FOR THIS DEPTH. 10 IS 
THE ЗЕА'' 

PRINT ''BOTTOM, WHILE 1 IS THE 
SURFACE OF'' 

PRINT ''THE ЅЕА. '' 

PRINT ''THE SUB'S POSITION UILL 
BE UPDATED'' 

PRINT ''AFTER EACH MOVE. AS IT 
UAITS TO SEE'' 

PRINT ''UHAT YOUR MOVE IS.'' 
PRINT ''THE SUB, BEING NUCLEAR 


POWERED. CAN'' 
PRINT ''STAY АТ ANY DEPTH. FOR 


ANY PERIOD ОҒ!" 

PRINT ''TIME.'' 

PRINT ''TÓ DESTROY THE SUB. YOU 
MUST'' 


430 


440 


450 


η ΒΏ 


470 
uan 


{ΠΠ 
500 


510 


520 


530 
540 


550 


560 


570 
580 
590 
bDD 
b10 


PRINT ''DROP THE DEPTH CHARGE NOT 
ONLY АТ!" 

PRINT ''THE RIGHT COORDINATES, 
BUT IT MUST"! 

PRINT ''BE FUSED FOR THE RIGHT 
DEPTH.'' 

PRINT ''IF МОТ- YOU HAVE WASTED A 
DEPTH. '' 

PRINT ''CHARGE.'' 

PRINT ''YOU HAVE A DISADVANTAGE 
AND AN'' 

PRINT ''ADVANTAGE OVER THE SUB. '' 
PRINT ''THE DISADVANTAGE IS 
YOU'RE LIMITED'' 

PRINT ''TO THE NUMBER OF DEPTH 
CHARGES'' 

PRINT ''YOU HAVE, SINCE YOU HAVE 
BEEN AT"! 

PRINT ''SEA SO LONG.'' 

PRINT ""THE ADVANTAGE IS THAT THE 
SUB CAN MOVE'' 

PRINT ''ONLY ONE SQUARE AT A TIME, 
AND ALSO'' 

PRINT ''IT CAN MOVE ONLY UP OR 


DOWN IN DEPTH'' 


PRINT ''ONE COORDINATE АТ A TIME. *' 


REM AMOUNT OF DEPTH CHARGES 

СЪ = INT{IRND{O} ж 113 + 16 
PRINT ''GOOD LUCK4 COMMANDER.'' 
PRINT 
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b20 PRINT ''YOU4 COMMANDER: ARE AT 
COORDINATES 1-41!" 

b30 PRINT 

buD REM SET UP POSITION FOR SUB 

Ь50 А = INT{RND{O} ж 10} + 1 

bbO В = INT{IRND{O}F ж 10) + 1 

b70 D = INT{RND{O} ж 10) + 1 

L80 REM А IS THE X AXIS 

b10 КЕМ B IS THE Y AXIS 

700 КЕМ D IS THE DEPTH 

?71Ü REM SHIP'S STARTING COORDINATES 

720 Хі = 1 

730 YL = J 

740 КЕМ GET SHIP'S MOVE 

750 PRINT 

760 PRINT ''COMMANDER4 WHERE DO WE 
SAIL FOR'' 

770 INPUT X«4Y 

780 REM TEST THAT X4Y ARE NOT OUT OF 
BOUNDS 

790 IF X > 10 OR X < 1 THEN 820 

800 IF Y > 10 OR Y < 1 THEN 880 

810 GOTO 8140 

8е0 PRINT ''COMMANDER4 STAY WITHIN 


THE GRID'' 
830 GOTO 750 


840 Xl = X 

850 Yl = Y 

860 PRINT 

870 PRINT ''COMMANDER4, WHAT SETTING 
FOR DEPTH CHARGES'' 
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880 


890 
900 
310 
920 
930 


840 


950 
ЯЬО 
870 


980 

990 
1000 
1010 
1020 
1030 
1040 
1050 


L060 
1070 
1040 
1040 
1100 
1110 
1120 


PRINT ''A SETTING ОҒ Ü RELEASES 
NO CHARGES. '' 

INPUT C 

IF C = 0 THEN 960 

IF C > 10 OR C < 1 THEN 930 

GOTO 1430 

PRINT ''COMMANDER4 THE SUB IS IN 
THE ШАТЕК"" 

PRINT ''NEITHER ABOVE THE SURFACE. 
NOR BELOW THE BOTTOM'' 

сото ΔΕΠ 

PRINT 

PRINT ''THE SUB IS AT С0- 
ORDINATES:— '' 

PRINT ''X = !!š Аз TY = τ; B 
PRINT ''AND AT A DEPTH OF '' D 
REM NEU SUB POSITION 


Al = INT{RND{O} жа} 
BL = INT{IRND{O} же} 
DL = INT(RNDITIDF же} 


КЕМ CHECK FOR PROPER MOVE 
КЕМ GET NEGATIVE OR POSITIVE 


MOVE 
Ql = INT{RND{O} x 2} 
00 = INT{IRND{O} ж 2} 


3 = INT{RND{O} ж 2} 
IF Q1 = 1 THEN 1120 


Ql = ~l 
6070 1130 
01-1 
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1130 IF 02 = 1 THEN 1160 

1140 бе = =] 

1150 GOTO 1170 

1160 др = 1 

1170 IF 93 = 1 THEN 1200 

1180 93 = -1 

1140 GOTO 1210 

1200 93 = 1 

1210 IF A + {Al κ Ql} > 10 OR A + {AL 
ж Ql} < l THEN 1240 

12201 А = А + {Al x 012 

1230 GOTO 1280 

L240 IF А + {Al ж Ql} > 10 THEN 1270 

1551 А = Ъ 

198Ώ GOTO 1280 

122021 A = Я 

1280 IF B + {Bl ж QP} > 10 OR B + {BL 
ж Ql} < 1 THEN 1310 

1290 В = B + {Bl ж бо} 

1300 GOTO 1350 

1310 IF В + {BL ж Qe} > 10 THEN 1340 

300 В = 1 

1330 GOTO 1350 

1340 B= 4 

1350 IF D + {Dl ж Q3} > 10 OR D + D 
{DL ж 93} < Ъ THEN 1380 

13b0 D = D + {Dl ж 93} 

1370 GOTO 1420 

1380 ІР D + {Dl ж Q3} > 15 THEN 1410 

390 D = 1 
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1400 
1410 
1420 
1430 


L440 
1450 


ΜΗ ΕΠ 
1480 
1500 


1510 


1520 


1530 


1540 


1550 
1550 
1570 
1580 


1540 
1Һ00 


1610 
1Һ20 
1530 


1640 


GOTO 1420 
p = Я 
GOTO 750 


IF X = A AND Y 


il 


В AND С = D 
THEN 1630 

PRINT 

PRINT ''SORRY4 COMMANDER. WE 
HAVE MISSED" 

СЪ =  - J 

IF СЪ >D THEN ЯБО 

PRINT 

PRINT ''SORRY, COMMANDER. NO 


MORE DEPTH CHARGES'' 


PRINT ''UE CANNOT GET HIM UITH- 


OUT CHARGES'' 

PRINT 

PRINT ''TO PLAY AGAIN TYPE la 
OTHERWISE 0'' 

INPUT L 

ТЕ L = 1 THEN 1610 

PRINT 

PRINT ''THE COMPUTER KNEU YOU 
UERE A'' 

PRINT ''LANDLUBBER. ..'' 

STOP 


PRINT 

GOTO 580 

PRINT 

PRINT ''NELSON WOULD BE PROUD 


оғ YOU'' 
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1650 
L660 


1670 
1580 


PRINT ''YOU GOT THE DEVIL SUB.'' 
PRINT ''YOU STILL HAVE ''5 C15 
'" "DEPTH CHARGES'' 

GOTO 1530 

END 


An adaptation of this program designed specifically for the 


Radio Shack TRS-80 computer using Level II BASIC can be found on 
page 188 in Section II. 
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УМК THE BISMARK 


This is an exciting chase game with many messages from the 
computer to the captain. 

Both vessels can fire at each other. Your mission is to sink the 
enemy before the enemy sinks you. Аз you get closer, the damage 
done by the high explosive shells becomes more pronounced. 

Caution: the number of shells available for either ship is limited. 
The number of shells is picked at random by the computer, yet there 
is always a minimum of 20 shells initially available to each ship. 


INITIALIZE VARIABLES 


INPUT M/S 


DEFEAT DEFEAT 
MESSAGE MESSAGE 
GO HOME GO HOME 
ИЕ t» MESSAGE MESSAGE < 0016 
VICTORY VICTORY 
MESSAGE MESSAGE 


NO 


Flowchart for Sink the Bismark 


SHELL 


COMMANDER'S 
VESSEL 


Fig. 1-2—As the distance between vessels becomes closer, the effectiveness of 
the high-explosive shells increases. 
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INSTRUCTIONS АКЕ: — 


THIS IS THE GAME OF SINK THE BISMARK 
BOTH YOUR VESSEL AND THAT 

ϱΕ THE ENEMY HAVE HIGH 

EXPLOSIVE SHELLS. 

YOUR MISSION IS TO SINK THE ENEMY 
VESSEL BEFORE IT CAN SINK 

YOUR VESSEL- 

THE NUMBER OF SHELLS AVAILABLE 

FOR BOTH YOU AND THE ENEMY ARE 
RANDOM, BUT BOTH VESSELS HAVE А 
MINIMUM ОҒ 20 SHELLS EACH. 

SHELLS ARE LESS EFFECTIVE AT LARGER 
DISTANCES. 

THE PRESENT DISTANCE IS NOU 1500 
WHAT IS YOUR COMMAND, MOVE OR SHOOT 
ENTER М OR S 

? M 

SORRY4 COMMANDER. YOU HAVE NO MORE 
SHELLS. YOU BETTER RETREAT TO PORT. 
NEXT TIME, BE CAREFUL WITH YOUR FIRE 
POWER.. 

TO TRY AGAIN AND BE MORE 

WATCHFUL THIS TIME 

ТУРЕ L TO TRY AGAIN. D TO STOP 

70 

I GUESS YOU'RE NOT READY TO 

TRY AGAIN, СОММАМДЕК.. 

WELL MAYBE NEXT TIME.. 

RUN COMPLETE. 
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Program Listing 


1D 


20 
30 


uD 


5D 


bÛ 


70 


80 


90 


100 


110 
120 


КЕМ THIS PROGRAM PITS TUO 
DESTROYERS 

REM AGAINST EACH OTHER 

REM ОМЕ VESSEL IS UNDER YOUR 
COMMAND 

REM THE OTHER IS UNDER COMPUTER 
CONTROL 

КЕМ TO EVEN THE ODDS4 THE COMPUTER 
MUST 

REM USE RANDOM VARIABLES OR ELSE 
THE CONTEST 

КЕМ WOULD DEFINITELY BE BIASED T0- 
UARDS THE 

REM COMPUTER. 

REM INITIALIZE VARIABLES 

REM ESTABLISH DISTANCE AT START 
ОҒ GAME 

D = 1000 + INT{RND{O} ж 2000} 
REM ESTABLISH NUMBER OF SHOTS 
AVAILABLE 

REM TÓ THE ENEMY 

S = INT{RND{O} ж 25) + 20 

КЕМ ESTABLISH NUMBER OF SHOTS 
AVAILABLE TO 

REM TO YOUR VESSEL 

Sl = INTCRND{O} ж 25} + 20 


У = р 
Е = О 
PRINT 
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210 PRINT TAB {735 ''DESTROYER'' 

220 PRINT TAB {75 '' 5 

230 PRINT 

240 PRINT 

250 PRINT ''INSTRUCTIONS ARE:— '' 

2b0 PRINT 

270 PRINT ''THIS IS THE GAME ОҒ SINK 
THE BISMARK'' 

280 PRINT ''BOTH YOUR VESSEL AND 
THAT'' 

290 PRINT ''OF THE ENEMY HAVE HIGH'' 

300 PRINT ''EXPLOSIVE SHELLS.'' 

310 PRINT ''YOUR MISSION IS TO SINK 
THE ENEMY'' 

320 PRINT ''VESSEL BEFORE IT CAN 
SINK'' 

330 PRINT ''YOUR VESSEL.'' 

340 PRINT ''THE NUMBER OF SHELLS 
AVAILABLE'' 

350 PRINT ''FOR BOTH YOU AND THE 
ENEMY ARE'' 

355 PRINT ''RANDOM4 BUT BOTH VESSELS 
HAVE A'' 

370 PRINT ''MINIMUM ОҒ 20 SHELLS 
EACH'' 

380 PRINT ''SHELLS ARE LESS EFFECTIVE 
AT LARGE DISTANCES.'' 

390 PRINT 

WOO PRINT ''THE PRESENT DISTANCE IS 
νου. τα) 
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410 
420 


430 
uuD 
450 
ЧЬО 
470 
чап 


440 
500 
510 


520 
530 
540 
550 
560 
570 
580 
590 
kDD 
Һ10 
b20 
b30 
buD 
b5D 
bbO 
b?U 


PRINT 

PRINT ''UHAT IS YOUR COMMAND 
MOVE OR SHOOT'' 

PRINT "ENTER M OR S'' 

INPUT C$ 

IF C$ = ''M'' THEN 500 


IF C$ '"'S'' THEN 1830 


PRINT 
PRINT ''YOUR COMMAND MUST BE 
EITHER S OR Mt? 

GOTO 410 

PRINT 

PRINT ''HOU FAR < - = TOWARDS, + 
= AWAY}"! 

INPUT 22 

IF DL/ABS{D1} = 1 THEN 560 

D = D - ABS{D1} 

GOTO 5?D 

D = D + D1 

REM GET ENEMY SHOT 

S ES 

IF 5 < 0 THEN 1290 

REM Q IS TEMPORARY VARIABLE 


Q = RND{10} 

Я = Q - (D / 500} 
Q = АВ5<02 

V =Q + V 


IF V > = 100 THEN 1510 
IF V > 10 AND V < е} THEN 790 
IF V > 20 AND V < 31 THEN 830 
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ҺӘП ІР У > dU AND V < Hà THEN ёги 


b10 IF V > uD AND < 51 THEN 920 


700 IF > bO AND < 71 THEN 8350 


< 71 THEN 1010 


< < < < 


755 ТЕ > 70 AND 


V 
V 

710 IF V > LO AND 
V < 81 THEN 1060 
V 


730 IF V > aD AND V < 91 THEN 1200 

740 IF V >90 AND V <100 THEN 1250 

750 PRINT 

?ЬП PRINT ''THE ENEMY HAS NOW ONLY''S 
S3 ''SHELLS'' 

270 PRINT ''YOUR VESSEL HAS NOU ONLY 
U у ЖЕНШ! 

780 GOTO 390 

790 PRINT 

800 PRINT ''CAUTION4 YOU'RE TAKING ON 
UATER'' 

810 PRINT ''NO SERIOUS DAMAGE YET'" 

820 6070 750 

830 PRINT 

840 PRINT ''THERE ARE A FEW SMALL 
FIRES'' 

850 PRINT ''BUT THEY ARE UNDER 
CONTROL '" 

860 GOTO 750 

870 PRINT 

880 PRINT ''YOU ARE LISTING TO PORT 
5 DEGREES'' 

890 PRINT ''UATER LEVEL IS STILL NOT 
DANGEROUS'' 


30D PRINT ''CAUTION4 FIRES ARE 
SPREADING"! 
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810 


920 


930 


840 


950 


ΠΕΠ 


470 


980 


990 


1000 


1010 


1020 


1030 


L040 


1050 


1060 


L070 


1080 


1040 


1100 


GOTO 750 

PRINT 

PRINT ''ENGINES ARE OVERHEATING 
AND" ' 

PRINT ''ТНЕ BILGE PUMPS ARE ACT- 
ING UP'' 

GOT 750 

PRINT 

PRINT ''MOST OF YOUR CREW IS'' 
PRINT ''SERIOUSLY HURT. THE FIRES 
ARE"! 

PRINT ''APPROACHING THE POWDER 
ROOM'' 


GOTO 750 

PRINT 

PRINT ''THE LIFE BOATS ARE BEING 
READIED'' 

PRINT ''SMOKE FILLS MOST OF THE 
CORRIDORS'' 

PRINT ''BILGE PUMPS ARE NEAR 
FAILURE'' 

GOTO 750 

PRINT 

PRINT ''YOUR CREW IS ABANDONING 
SHIP'' 

PRINT ''THE BILGE PUMPS HAVE 
STOPPED'' 

PRINT ''ONE ENGINE HAS BURNED 
oUT'' 


GOTO 750 
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1200 
1210 


1220 


1230 


1240 


1250 


1260 


1270 


1280 


1240 


1300 


1310 


1320 
1330 


1340 


1350 
1360 


1370 


1380 


PRINT 

PRINT ''THE SHIP IS BURNING, 
YOU HAVE'' 

PRINT ''PLACED THE SHIP ON 
AUTOMATIC'' 

PRINT ''YOU ARE LOSING 
STABILITY. COMMANDER'' 

GOTO 750 

РКІМТ 

PRINT ''YOUR SHIP IS BADLY 
DESTROYED. THERE'' 

PRINT ''IS LITTLE HOPE4 
COMMANDER..'' 

GOTO 750 

PRINT 

PRINT ''THE ENEMY IS RETREAT- 
ING..'' 

PRINT ''YOU HAVE UON THIS 
BATTLE'"' 

PRINT 

PRINT ''COMMANDER4 YOU HAVE 
WON WITH''S 51 

PRINT ''SHELLS LEFT ON YOUR 
VESSEL'S 

PRINT 

PRINT ''SINCE YOU ARE SUCH 

А GREAT COMMANDER'' 

PRINT ''THE COMPUTER UANTS TO 
KNOW IF YOU'' 


PRINT ''UANT TO FIGHT AGAIN.'' 


1340 PRINT 
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1400 PRINT ''TO HAVE ANOTHER BATTLE 
TYPE 1'' 

1410 PRINT ''IF NOT TYPE D'' 

Ъ420 INPUT L 

3430 IF L = 1 THEN 110 

1440 PRINT 

1450 PRINT ''OKAY GIVE UP WHILE YOU 
ARE AHEAD'' 

ЪЧЬО PRINT 

1470 PRINT ''THE COMPUTER SAYS 
GOODBYE" 

1480 PRINT ''THE ENEMY SAYS GOODBYE 
FROM"! 

1490 PRINT ''DAVY JONES LOCKER"! 

L500 STOP 

1510 PRINT 

1520 PRINT ''YOUR VESSEL IS GOING 
DOUN' ' 

1530 PRINT ''YOU BETTER GET INTO THE 
LIFE BOAT'' 

1540 PRINT ''HURRY4. CAPTAIN, IF YOU 
АКЕ!" 

1550 PRINT ''GOING TO MAKE ТТ..'' 

L560 PRINT 

1570 PRINT ''YOU LOST THIS TIME, DO 
YOU WANT! 

1580 PRINT ''TO TRY AGAIN, 
COMMANDER?'! 

1540 PRINT 

600 PRINT ''TYPE 1 TO TRY AGAIN, О 
TO STOP'' 


1700 INPUT L 


1710 IF L = 1 THEN 1770 

1780 PRINT 

1730 PRINT ''I GUESS YOU ARE NOT 
UILLING..'" 

1740 PRINT ''UHO KNOWS. PERHAPS YOU 
COULD НАМЕ" " 

1750 PRINT ''UON IF YOU HAD TRIED..'"' 

1?7b0 STOP | 

1770 PRINT 

1280 PRINT ''THE COMPUTER IS HAPPY. 
YOU ARE'' 

1740 PRINT ''OF THE FIGHTING ТҮРЕ!" 

1800 PRINT ''BETTER LUCK NEXT TIME: 
COMMANDER. '' 

1810 PRINT 

1820 GOTO 110 

1830 51 = Sl - 1 

1840 IF S 1< D THEN 18Ь0 

1850 GOTO 2040 

18b0 PRINT 

1870 PRINT ''STORY. COMMANDER, YOU 
HAVE NO MORE '' 

1880 PRINT ''SHELLS. YOU BETTER RE- 
TREAT TO РОВТ-"' 

1830 PRINT ''NEXT TIME. BE CAREFUL 
WITH YOUR FIRE'' 

1400 PRINT ''POUER..'' 

1410 PRINT 

1820 PRINT ''TO TRY AGAIN. AND BE 


MORE'* 
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1430 
1440 


1440 
1450 
L760 
1470 


1480 
1190 
2000 
2010 
2020 


2030 
gDuD 
2050 
5ΠΕΏ 
2070 
2080 
2090 
2100 
2110 
ebel 
2130 
2140 
2150 
21b0 
2170 
2180 


PRINT 


"'WATCHFUL THIS TIME.'' 


PRINT ''TYPE 1 TO TRY AGAIN. 0 


TO STOP'' 


INPUT L 


IF 


L 


= Ъ THEN 2010 


PRINT 


PRINT 


READY ΤΟ! 


PRINT 


PRINT 


STO 


P 


PRINT 


PRINT 


COMMANDER. '' 


"tT GUESS YOU'RE NOT 


"'TRY AGAIN; COMMANDER. .'"' 


' *UELL 4 MAYBE NEXT TIME sa 


""ТКҮ HARDER THIS TIME 


Q IS A TEMPORARY VARIABLE 


T 


Я - (D / 500} 


GOTO 110 
REM 

Q = RND{10 
Q = 

Q = ABS{Q} 
E = Q + E 


IF E > = 100 THEN 


IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 


E 
E 
E 


> 0 AND E < 


> 20 
> 38 
> ЧО 
> 50 
> ЬО 
> 70 
> 80 


> 40 


AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 


L. an 
2-4 
Bx 
E < 
Е < 
Е < 
Ex 
Е < 


e230 

2l THEN 2350 
31 THEN 2430 
ul THEN 2480 
51 THEN 2540 
bi THEN 2580 
71 THEN 2630 
81 THEN 2680 
41 THEN 2740 


00 THEN 2800 
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2140 
2200 


e210 


erel 
crag 
сечо 


e250 
dabû 
220 


egal 
2690 


2300 
2310 
2320 
2330 


2340 
2350 
23b0 
2370 


2380 


2390 
2400 
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PRINT 

PRINT ''THE ENEMY IS TAKING ON 
ШАТЕК"" 

PRINT ''THERE SEEMS TO BE SOME 
SMOKE'"' 

GOTO 570 

PRINT 

PRINT ''YOU HAVE DESTROYED THE 
ENEMY'' 

PRINT ''VESSEL..'' 

PRINT 

PRINT ''SINCE YOU ARE SO GOOD AT 
THIS'' 

PRINT ''uHY DONT YOU TRY AGAIN'' 
PRINT ''TYPE 1 TO CONTINUE. O 

TO STOP'' 

INPUT L 

IF L = 1 THEN 2360 

PRINT 

PRINT ''GUESS YOU ARE TIRED 
FROM ТНЕ"" 

PRINT ''BATTLE4 COMMANDER'S ' 

STOP 

PRINT 

PRINT ''HOPE YOUR LUCK HOLDS 
OUT'' 

GOTO 110 

PRINT 

PRINT ''THE ENEMY SHIP IS LOSING 
GROUND..'"' 


2u10 PRINT ''ALREADY THERE ARE SMALL 
FIRES'' 

2420 GOTO 570 

2430 PRINT 

2440 PRINT ''LOOKS LIKE SOME OF THE 
OTHER'' 

2450 PRINT ''VESSEL'S CREW ARE 
LEAVING'' 

ƏubD PRINT ''IN LIFE BOATS. 
COMMANDER ' ' 

2470 GOTO 570 

2480 PRINT 

2490 PRINT ""СОММАМФЕКа THE RADIO 
ROOM HAS" 

2500 PRINT ''PICKED UP COMMUNICATIONS 
FROM" 

2510 PRINT ''THE ENEMY. RADIOING TO 
SAY IT IS'' 

2520 PRINT ''TAKING ON UATER 
QUICKLY. ' 

2530 GOTO 570 

2540 PRINT 

2550 PRINT ''THE ENEMY STILL HAS NO 
SERIOUS DAMAGE'' 

2560 PRINT ''BUT SHE SURE IS TAKING 
ON ШАТЕК. "' 

2570 GOTO 570 

2580 PRINT 

3590 PRINT ''THE OTHER SHIP SEEMS TO 
HAVE SOME'"' 


chop 


сЬ10 
eben 
2630 
сычП 


eb50 


сььп 
2670 
2680 
2690 


2700 
e710 


2720 
e730 
2740 
2750 


27b0 
2770 


2780 
2790 
2800 
2810 
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PRINT ''FIRES NOW, BUT THEY 
SEEM TO BE'' 

PRINT ''UNDER CONTROL. '' 

GOTO 570 

PRINT 

PRINT ''THE ENEMY IS LISTING 
SERIOUSLY'' 

PRINT ''IT CANNOT LAST MUCH 
LONGER.'' 

PRINT ''KEEP IT UP, COMMANDER. '' 
GOTO 570 

PRINT 

PRINT ''COMMANDER4 THE ENEMY 

HAS LOST'' 

PRINT ''ALL MOTIVE POUER'' 

PRINT ''IF UE KEEP ON SHOOTING 
WE'LL"! 

PRINT ''GET HER. "' 

GOTO 570 

PRINT 

PRINT ''MOST OF THE ENEMY'S 
CREU'' 

PRINT ''HAS LEFT ON LIFE BOATS.'' 
PRINT ""А FEU MORE ACCURATE 
УНОТУ ' * 

PRINT ''AND WE'LL СЕТ HER SUNK.'' 
GOTO 570 

PRINT 

PRINT ''SHE CAN'T TAKE MUCH 


МОКЕ-'' 


2820 


2830 


2140 


2850 
2560 


PRINT ''COMMANDER4 IT LOOKS 
LIKE THE" 

PRINT ''ENEMY IS GOING DOWN, 
PROBABLY" '" 

PRINT ''TO JOIN DAVY JONES 
LOCKER'' 

GOTO 570 

END 


An adaptation of this program designed specifically for the 


Radio Shack TRS-80 computer using Level II BASIC can be found on 
page 191 in Section Il. 
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MOUSE HUNT 


Your object is to squash the obnoxious mouse. You do this by 
hops, but the mouse also can hop away. The size of the hop is 
random, but you can choose the direction. | 

The computer also will tell you where the mouse is in relation to 


your initial point on a graph where x and у = ¢. If you catch 
him—SPLATT!!! goes the mouse. 


HEADER Flowchart for Mouse Hunt 
SET UP LOCATIONS 
AND SPEED 
OUTPUT 
MOUSE HOP 


INPUT YOUR 
HOP 


DID 
MOUSE GO 
SPLATT!! 


HOW FAR 
.| MESSAGE 
YES 


ZAPPED MOUSE 
MESSAGE 


OUTPUT NUMBER 
OF TRIES 


PLAY NO 
AGAIN 
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Sample Кип 


THIS PROGRAM ALLOWS YOU TO GO ON A MOUSE HUNT 
FOR А VERY OBNOXIOUS MOUSE 

THE MOUSE TRIES TO UO UGE YOU BY НОРРІМО 
RANDOMLY 

YOU CAN CATCH IT BY BEING WHERE THE MOUSE LANGS 
YOU CAN CHANGE DIRECTION TOO 


YOU HAVE TO GET WITHIN 67 FEET GF THE MOUSE τὸ 'RETCH^ IT 
НИР SIZES ША MOUSE 90 YUUSE 279 


THE COMPUTER SAYS? I WISH YOU GREAT FORTUNE IN YOUR ENDEAVOR 
FROM THE MOUSE? ПЕЙР DEAD - TURKEY 
FROM THE COMPUTER? KEEP IT CLEAN BOYS 


TRY + 1 

THE MOUSE IS 583.216 FEET AWAY 

AT LOCATION “AO BY "yl 

амп TOOK OFF АТ AN ANGLE OF 157 DEGREES 
YOU ARE 

AT LOCATION O ΕΥ Q 

ашыы THAT HURTS - YOURE NOT EVEN CLOSE 

WHAT DIRECTION DO YOU WISH TO JUMP? 222 


TRY d 2 

THE MOUSE IS 371.368 FEET AWAY 

AT LOCATION 532.8495 BY -235.834 

AND TOOK OFF АТ AN ANGLE OF 353 DEGREES 
YOU АКЕ 

AT LOCATION -190.919 BY -190.919 

DuWu THAT HURTS ~ YOURE МОТ EVEN CLOSE 

WHAT DIRECTION ΠΏ YOU WISH ТО JUMP? 270 


TRY + 5 

ΤΗΕ MOUSE IS 277.179 FEET AWAY 

AT LOCATION -443.818 ΒΥ -346.802 

АМП ТООК OFF АТ АМ ANGLE OF 185 DEGREES 
YOU ARE 

AT LOCATION -190.919 BY -460.917 

OwWwwWw THAT HURTS ~ YOURE МОТ EVEN CLOSE 

WHAT IIRECTION DQ YOU WISH TO JUMP? 155 


TRY 8 4 

THE MOUSE IS 173.4 FEET AWAY 

AT LOCATION -533.174 BY ~ 354-646 

АМП TOOK OFF АТ AN ANGLE OF 158 DEGREES 
YOU ARE 

AT LOCATION -381.838 ΒΥ -270. 

OWWW THAT HURTS ~ YOURE NOT EVEN CLOSE 

WHAT DIRECTION DO YOU WISH TO JUMP? 170 


TRY + өз 

THE MOUSE IS 102.647 FEET AWAY 

AY LOCATION 616, 62 BY Е 

AND ТООК OFF АТ AN ANGLE OF 285 DEGREES 
YOU АКЕ 

AT LOCATION -647.73à6 EY egag lls 
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ÜWWW THAT HURTS = YOURE МОТ EVEN CLOSE 

WHAT DIRECTION DO YOU WISH TO JUMP? 270 

SPLAT IL! 

YOU GOT IT 

BOY WHAT А MESS ~ SQUASHED MOUSE EVERYWHERE 

YOU TOOK $ TRIES ТО 'KETCH(UPO* THE MOUSE 
WANT TO TRY AGAIN? CYES/NO) ОФ YES 

YOU HAVE TO GET WITHIN 314 FEET OF THE MOUSE TO 
НОЕ SIZES ПА MOUSE 120 YOUSE 240 


THE COMPUTER SAYS! I WISH YOU GREAT FORTUNE IN YOUR 


FROM THE MOUSE? DROP DEAD - TURKEY 
FROM THE COMPUTER? KEEP IT CLEAN BOYS 


TRY d 1 

THE MOUSE IS 414.357 FEET AWAY 

AT LOCATION “ASS BY 415 

AND TOOK OFF АТ АМ ANGLE QF 3 HEGREES 

YOU ARE 

AT LOCATION о BY о 

Ql THAT HURTS = YOURE NOT EVEN CLOSE 

WHAT DIRECTION ПО YOU WISH TO JUMP? 135 
SPLAT EE ΤΙ 

YOU GOT IT 

BOY WHAT A HESS ~ SQUASHED MOUSE EVERYWHERE 
YOU TOOK 1 TRIES TO 'KETCHüiUPOS* THE MOUSE 
WANT TO TRY AGAIN? CYESYNO)  * YES 

YOU НАМЕ TO GET WITHIN 238 FEET OF THE MOUSE TQ 
HOF SISES Па MOUSE 130 YOQUSE 260 


"КЕТЕН 


“КЕТЕН 


IT 


ENTE AV OER 


IT 


THE COMPUTER SAYS: I WISH YOU GREAT FORTUNE IN YOUR ENDEAVOR 


FROM THE MOUSE? DROP BEAD - TURKEY 
FROM THE COMPUTER? KEEP IT CLEAN BOYS 


TRY id 1 

THE MOUSE IS 670.343 FEET AWAY 

AT LOCATION 472 BY а?а 

AND TOOK OFF АТ AN ANGLE OF 160 DEGREES 
YOU ARE 

AT LOCATION ὃ BY © 

QOWWW THAT HURTS = YOURE NOT EVEN CLOSE 

WHAT ИТКЕСТТОМ πο YOU WISH TO JUMP? 135 


TRY 4 х) 

THE MOUSE IS 330.722 FEET AWAY 

AT LOCATION -294,16 BY 320,463 

амп TOOK OFF АТ АМ ANGLE ΠΕ 144 DEGREES 
YOU ARE 

AT LOCATION -183.848 By 183.848 

QOWWW THAT HURTS - YOURE NOT EVEN CLOSE 

WHAT DIRECTION ПО YOU WISH TO JUMP? 150 
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TRY d 

THE MOUSE I 
AT LOCATION 
ANT TOOK OF 
YOU ARE 

AT LOCATION 


OQWWW THAT HURTS ~ 


WHAT UIRECT 
TRY d 

THE MOUSE I 
AT LOCATION 


-— 
э 


5 405.449 Е 


GPF να 


F ат AN ñ 


“HOF. O14 


je 


NGLE 


BY 


YOURE 


EET 
BY 


ОЕ 


3 
NUT 


ION па YOU WISH 


4 
6 274.21 


-818.0 


ANU TOOK OFF AT AN А 


YOU ARE 

ат LOCATION 
MISSED АСАТ 
WHAT DIRECT 
ΠΕΙ ΑΤΕΙ Τ 1 
του GOT TT 
ΠΟΥ WHAT ñ 
YOU ТООК 
WANT TO TRY 


-669.014 
N- ВИТ PR 


ант 
пб. 07% 


204 ΠΕΝ 


135.848 
EMEN CLOSE 
TO ΜΡ» 180 


u FEET AWAY 


с. 
9,3 


МОШЕ 


BY 
ETTY 


EY 
ОЕ 
3 
Ch 


TON DQ YOU WISH 


MESS ~ SQUASHED 


4 TRIES 


TO 


“КЕ 


AGAIN? (YES/NO) 


RUN COMPLETE, 


945.999 
119  nEGREES 
135.848 


OSE. 
TO JUMP? 1325 


MOUSE EVERYWHERE 


ТОНЕР.” THE MOUSE 


т NQ 
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Program Listing 


100 REM CHANGF A MOUSE 
200 PRINI "THIS PROGRAM ALLOWS YOU TO GO ON A MOUSE HUNT " 
300 PRINT "FOR A VERY OBNOXIOUS MOUSE " 
400 PRINT "THE MOUSE TRIES TS DO DGE YoU BY HOPPING " 
500 PRINT "RANDOMLY " 
600 PRINT "YOU CAN CATCH IT BY BEING WHERE THE MOUSE LANDS " 
700 PRINT "YOU CAN CHANGE DIKECTION TOO " 
800 PRINT 
900 T#RND (0) #1000 
1000 T=INT(T) 


1100 PRINT "YOU HAVE TO GET WITHIN "Тр " FEET OF THE MOUSE 
TO 'KETCH' IT " 
1200 Tafe] 


1300 REM SET UP THE LOCATIONS AND SPEEDS 
1400 REM 10 "KETCH " THE MOUSE 
1500 REM YOU ARE THE FOX 

1600 RlwINT(RND (0) 104.5) 4109950 
1700 К2ж (ІМТ (КМО (0) 0295) 91) ёк] 
1800 KIzRND(0) 

1900 К2=Км0 (0) 

2000 IF Kj»,5 THEN 2300 

2100 κια] 

2200 GOTO 2400 

2300 Кіз1 

2400 IF K2»,5 THEN 2700 

2500 Kex] 

2600 GOTO 2800 


2700 Кё=-\ 

2800 QleINT(RND (0) #4004100) 
2900 01ο] 4k) 

3000 065ΙΝΤ(ΗΝΟ(0) #4004100) 
3100 02ас2%к2 

3200 IF Q2*s0 OR Q1s0 THEN 1800 


3300 Q3z0 

3400 4%-ш0 

3500 PRINT "НОР SIZES '', "DA MOUSE "ІНІ, "YOUSE "3R2 

3600 PRINT 

3700 PRINT "THE COMPUTER SAYS I WISH YOU GREAT FORTUNE IN 
YOUR ENDEAVOR " 


3800 PRINT "FROM THE MOUSE DROP DEAD = TURKEY " 


3900 PRINT "FROM THE СОМРОТЕН КЕЕР IT CLEAN BOYS " 
4000 PRINT | 
4100 P123,14159254/180 


4200 K3z|] 

4300 21= (43-01) * (03-01) + (04-02) % (94-92) 

4400 REM 

4500 REM PRINT А CYCLE 

&600 REM 

4700 PRINÍ 

4800 PRINT "TRY я  ",.K3 

4900 PRINT "ІНЕ MOUSE IS иубык (21); " FEET AwAY " 
5000 PRINT "AT LOCATION "шй; H AY "502 


8100 Dl1=INT(RND (0) #359) 

5200 IF 21<«Т THEN 5400 

5300 PRINT "AND TOOK OFF АТ AN ANGLE OF "3013 " DEGREES " 
5400 PRINT "YOU АКЕ " 

5500 PRINT "AT LOCATION "3038 " BY "304 

5600 IF 21»2*T THEN 6200 


48 


5700 IF 21>Т THEN 6400 

5800 PRINI "SPLAT!!1! ἡ 

5900 PRINT "YOU GOT IT " 

6000 PRINT "ΒΟΥ WHAT A MESS = SQUASHED MOUSE EVERYWHERE ἡ 

6100 GOTO 8800 

6200 PRINT "Омин THAT HURTS - YOURE NOT EVEN CLOSE " 

6300 GOTO 6500 

6400 PRINT "MISSED AGAIN= BUT PRETTY CLOSE " 

6500 PRINT "WHAT DIRECTION DO YOU WISH TO JUMP''; 

6600 INPUT 02 

6700 IF 02>=0 AND 02<=360 THEN 7000 

6800 PRINT "BETWEEN 0 ANO 360 DEGREES ONLY " 

6900 GOTO 6500 

7000 QS=R1%COS(D1%P1)/100 

7100 Q6zR)*SIN(O1)*P1)/100 

7200 Q?7zR29*COS(D29*P1)/100 

7300 Q8zk2*SIN(02*P1)/100 

7400 Сіз2і 

7500 С2=2\ 

7600 FOR із! TO 100 

7700 @]\=0] +05 νᾶ. ''. 

7800 Q2202+06 

7900 03ж03%07 

8000 0904=04%4+08 

8100 C2s(u3-G1)* (63-01) + (04-02) # (94-62) 

8200 IF СоэСі THEN 08400 

8300 ClzCe2 

8400 NEXT I 

8500 IF Сі<з1 THEN 5800 

8600 K3zK3*1 

8700 GOTO 4300 | 

8800 PRINT "YOU ТООК "кз " TRIES ТО *KETCH(UP) ! 
THE MOUSE " 


8990 PRINT "WANT 10 TRY AGAIN@(YES/NO) "3 o 
9000 INPUT AS 

9100 IF AS$z"YES" THEN 900 

9200 IF AS<>"NO" THEN 8900 

9300 STOF 

9400 END 


An adaptation of this program designed specifically for the 


Radio Shack TRS-80 computer using Level II BASIC can be found on 
page 194 in Section II. 
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CAPTURE THE ALIEN 


Capture the Alien is a slightly different version of the famous 
Star Trek games. Instead of killing off the baddies, we capture them. 
To capture the enemy vessel, you must destroy all the regions 
around it, using phaser power. The Battle Computer will keep you 
up to date on how you are doing. 

There is a protected area where the alien first enters your 
sphere of influence, namely the x axis = 1 and the y axis = 1. Firing 
in there is like firing at an already destroyed region. But remember, 
your mission is to capture the enemy vessel. If you zap the alien by 
mistake, watch out. The computer gets mad. 


GET PLAYERS 
PHASER SHOT 


MESSAGE 


DISPLAY 
STATUS 


Flowchart for Capture the Alien 
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Sample Вип 


ENTER YOUR МАМЕ FOR THE GALACTIC RECORDS 
? КЕМ 


INSTRUCTIONS КЕМ (LsYESs ΖΞΝΩ} 
T 1 


YOUR MISSION COMMANDER КЕМ IS TO CAPTURE 

AN ENEMY BATTLE VESSEL. YOU MUST NOT DESTROY 

THE ENEMY; YOU MUST TAKE HIM ALIVE. 

TO EFFECT А CAPTURE» YOU MUST DESTROY ALL 
REGIONS AROUND IT. THE INBOARD BATTLE-DEFENSE 
COMPUTER WILL KEEF YOU UF-TO-DATE ON THE 

ENEMY'S LAST FOSITION 

THERE IS ALSO A FROTECTED AREA USING THE 

AXES X=] AND У=1, SO THAT ΤΗΕ ALIEN HAS ñ CHANCE 
YOU FIRE INTO THIS REGION »IT IS THE SAME AS FIRING 
INTO ñ PREVIOUSLY DESTROYED AREA!!1111!11 


GOON-LUCK COMMANIIER КЕМ 
COMMANDER КЕМ YOU HAVE 25 SHOTS 


ENEMY^S LAST KNOWN FOSITION 
SECTOR 3 p 1 


LI 3€ зе MM 3€ κ 
ie 3 ὃς 3€ HMM ж 
A» © ὃς 3€ Эс MM хх 
(n 3 э MM X x ж 
OM эж MMM MM Э 
«δε э эє 3€ ж 3€ ж 
MM HMMM 3x 3€ X 
02 Î O CH > οἱ hO e 


ке 


ENTER YOUR FHASER SHOT (XY)? 2,2 


ENEMY’S LAST KNOWN FO0SITION 
SECTOR 4 » 2 


^3 3X 3X x 3€ x x 

O ας 3€ 3€ 3X o Xx x 
A 3e 3X 3x 3X 3 ж x 
CQ x 3 3 3X x x x 
OS X X эс 3X 3X X X 
DOG 3X 3€ 3X X X ж 
OM 3€ ж X HM X 56 

о ^ ον CH p οἱ hoe 


F+ 
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COMMANDER КЕМ YOU HAVE BEEN ATTACKED 
ENERGY USED TO KEPLENISH SHIEL DS 
COMMANDER КЕМ ONLY 23 SHOTS REMAIN 


ENTER YOUR FHASER SHOT (X Y)? 4»3 


ENEMY'S LAST KNOWN POSITION 
SECTOR S » 3 


ж = 


MJ 3 3€ 3 ххх 
ii © 3€ κ 3€ 

> ЭЕ ЭЄ πὲ ж 3€ πε Э 
хехе 36 HM X 
OM. 3€ 3c 36 3€ 3€ x X 
Nid ж MM 36 BN X 


= 


ел 


СОММАМПЕК КЕМ YOU HAUE BEEN АТТАСКЕШ 
ENERGY USED TO REPLENTSH SHIELDS 
СОММАМПЕК КЕМ ONLY 21 SHOTS REMAIN 


ENTER YOUR PHASER SHOT (XY)? 692 


ENEMY^S LAST KNOWN POSITION 
SECTOR 4 s 4 


ih 55 


сл 3 ж 3x x x x x 
ON RUD 


= 
hj) 3e ὃς 3€ 3€ жж 
Ыы ὃς ж 

GA 3X Ἐς x x 
D. ὃς 3€ MM 3€ 3€ X 
MP ἃς 3€ MM 3X 3€ 3x 
CO X X X x езе > 


ENTER YOUR FHASER SHOT (X»YO'? 4,5 


ENEMY'S LAST KNOWN FOSITION 
SECTOR 3 y 85 


ος 


FJ 3€ 3€ X x x x 

+ 3X 33x 3X 3 X 3x x 

СЯ 3.23€ ж 3x 

Th 3€ 3€ 3€ жж 3€ عد‎ 

3X 3€ 3X 3€ x жж 

O 3€ э 3 o 3€ жж 
O ^P & Cid οἱ н 


= 


ENTER YOUR PHASER SHOT (X Y)? 2,5 
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ENEMY’S LAST KNOWN РОЗТТТОМ 
SECTOR 2 » 6 


3 


ж x x 3X зс “κ 
OM. 3X 36 36 3€ © 3€ σε 


in δὲ X 3* 

d» ж ж 3€ 3€ πε ж 3 
ж ж ж ж 

PD ж ж X κ X* X* 

OO X X 3e X κ “κ Ἐ 
O “i Ch D> Poe 


12 


ел 
э 


ENTER YOUR FHASER SHOT (Х,Ү)? 2»? 
СОММАМПЕК КЕМ 

rin YOU EVER BLOW IT THIS TIME 

YOU ?АРРЕП THE ALIEN!!!:))11]11] 

YOUR MISSION WAS А TOTAL WASTE OF TIME 
FOR YOU AND THE EMPIRE 


RUN COMPLETE « 


Program Listing 


10 REM LETS CAPTURE A ENEMY VESSEL 


20 REM INSTEAD OF DESTROYING HIM 
30 

40 DIM (999) 

50 PRINT 


60 PRINT"ENTER YOUR МАМЕ FOR THE GALACTIC RECORDS" 
70 INPUT AS 
80 $=25 = 
90 PRINI 
100 PRINTHINSTRUCTIONS "FAS" (1=ҮЕ5, 2zNO)" 
110 INPUI С 
120 IF С<>1 THEN 290 
130 PRINT 
140 PRINT"YOUR MISSION COMMANDER "$AS3" IS TO CAPTURE" 
50 PRINT'AN ENEMY BATTLE VESSEL. YOU MUST NOT DESTROY" 
160 PRINT'"THE ENEMY» YOU MUST TAKE HIM ALIVE." 
170 PRINT"TO EFFECT A CAPTURE, YOU MUST DESTROY ALL" 
180 PRINI'"REGIONS AROUND IT, THE INBOARD BATTLE-DEFENSE" 
190 PRINT"COMPUTER WILL KEEP YOU UP=TO=DATE ON THE" 
00 PRINT"ENEMY'S LAST POSITION" 
210 PRINT"THERE IS ALSO A PROTECTED AREA USING THE" 
220 РКІМТНАХЕЅ X=] AND Υπ1ν SO THAT THE ALIEN HAS A CHANCE" 
230 PRINT'YOU FIRE INTO THIS REGION +IT IS THE SAME AS FIRING" 
240 инна A PREVIOUSLY DESTROYED АВЕА 11111111" 


260 PRINT'!'GOOD-LUCK COMMANDER "3A$ 

270 PRINT = 
280 PRINT 

290 PRINT'"ICOMMANDER ": А49; " YOU HAVE "5%" SHOTS" 

300 FOR Xs] TO 9 

310 FOR Ys] To 9 

320 Q(YsX)mO 
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330 وو‎ ee E 


340 0 (9,5) x=] 

350 O(Yel) se] 

360 Q(Y99) ~] 

370 NEXT Y 

380 NEXT X 

390 XzINT(10*RND(0)) 
400 IF X«] THEN 390 
410 IF X»8 THEN 390 
420 YsINT(10*RNO(0)) 
430 IF Ү<1 THEN 420 
440 IF Y»8 THEN 420 
450 PRINT 

460 PRINTU"ENEMY*S LAST KNOWN POSITION" 
470 PRINT'SECTOR "4X4" ç нуу 
480 PRINT 

490 IF 5<а0 THEN 1310 
500 Cex 

510 DsY 

520 AzINT(10*RND(0)) 
530 IF A«C THEN οσο 
540 GOTO 560 

550 XzX=] 


560 IF A»C THEN 580 


570 GOTO 590 

580 XsXe«| 

590 IF X«] ТНЕМ 

600 GOTO 620 

610 х=] 

620 IF X»8 THEN 640 

630 GOTO 650 

640 X28 

650 AZINT(10*#RND(u)) 

660 IF A<D THEN 580 

670 GOTO 690 

680 Ү=Ү-] 

690 IF A»D THEN 710 

700 GOTO 720 о сты 
710 Y=Y+] 

720 IF Ү<1 THEN 740 

730 GOTO 750 

740 Y=1 

750 IF Y»8 THEN 770 

760 GOTO 180 

770 ΥΞ8 

780 IF G(YeX)<>=1 THEN 00820 
790 XzC 

800 Ү=0 

810 GOTO 520 

820 FOR да) TO а 

830 FOR вз] TO 8 

840 IF G(Be4)20 THEN 360 
850 GOTO 00870 

BED PRINT! ннен; 

870 IF Q(Bç+A)=-1 THEN 890 
880 GOTO 900 

890 PRINT" "gu п; 

900 NEXT В 


910 PRINT! "дд 

920 NEXT А 

930 PRINI" 12 34 5 6 7 B" 
940 PRINT 


950 AzINT(10O*RND(0)) 


960 IF A»4 THEN 01020 
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970 ΡΗΒΙΝΙΗΟΟΜΜΑΝΡΕΗ "ДФ; YOU HAVE BEEN АТТАСКЕОН 
980 РКІМІЗЕКМЕРСбҮ USED TO REPLENISH SHIELDS " 
,990 $=5= | 
1000 PRINT'ICOMMANDER ИН; Ахун ONLY "15; SHOTS REMAIN" 
101 INI 
1020 AZINT(10*RND(O0)) 
1030 IF А<9 THEN 01150 
1040 АзІМТ(10%98М0(0)) 
1050 IF AzX THEN 1040 
1060 IF A«1 THEN 1040 
1070 IF А>8 THEN 1040 2 | 
1080 B=INT(10%#RND(0)) 
1090 IF В=Ү THEN 1080 
1100 IF В<1 THEN 1080 
1110 IF Е>8 THEN 1080 
1120 9(В,д) 2-1 


1130 PRINT"NOVA IN SECTOR "АН ç "iH 

1140 PRIN I 

1150 PRINI"ENTER YOUR PHASER SHOT (AsY) "3 

1160 INPUT А,В 

1170 5555] 

1180 IF AzX AND ΗΞΥ THEN 1340 

1190 IF С(В.А)=-] THEN 1400 

1200 Q(B»A)s-1 

1210 РОН даХ-1 TO Xe] 

1220 FOR ңаҮ-1 ТО Yel 

1230 IF AzX AND BsY THEN 1250 

1240 IF С(ВФА)<>-1 THEN 450 

1250 NEXT В 

1260 NEXT A 

1270 PHINI''GOOD SHOW COMMANDER "3A$ 

1280 PRINT'YOU HAVE CAPTURED IFE ALIEN ENEMY" 
1290 PRINT"AND YOU HAVE "3S1" SHOTS REMAINING" 
1300 STOP 

1310 PRINT"COMMANDER "3A$ 

1320 PRINI"YOQU HAVE NO MORE ENERGY FOR РНАЗЕВ$Н 
1330 GOTO 1370 

1340 PRINI"CUMMANDER "АФ 

1350 PRINT"OID YOU ЕМЕН BLOW IT THIS TIME" 

1360 PRINIÍ'"YOU ZAPPED THE ALIEN!11111111!11" 

1370 PHINI'YOUR MISSION WAS А TOTAL WASTE OF TIME " 
1380 PHINI"FOR YOU AND THE ЕМРІРЕ" 

1390 STOP 

1400 PRINI"COMMANDER ''3A$ 

1410 PRINT'GOODeSHOT, YOU FIRED ON A PREVIOUSLY CESTRKOYED 


AREA" 
1620 PRINT" TURKEY" 
1430 GOTO 450 
1640 END 


An adaptation of this program designed specifically for the 


Radio Shack TRS-80 computer using Level II BASIC can be found on 
page 196 in Section П. 
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STAR WARP 


Star Warpis an interactive program like Star Trek, except that 
instead of graphs being drawn, dialogue goes on between crew 
members. This type of program requires less memory and no 
graphics capabilities. The game sometimes can go on for over one 


hour! 


Flowchart for Star Warp 


UPDATE STATUS 


ENEMY 
ZAPPED ZAPPED 


ї 


MESSAGE 
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Sample Кип 
PROGRAM STAR WARP 


SPACE» THE FINAL FRONTIER 

THIS IS THE VOYAGE OF THE STARSHIP PROMETHEUS ә 

IT ο FIVE YEAR MISSION» TO EXPLORE STRANGE NEW WORLISs 
το SEEK QUT NEW LIFE AND NEW CIUILIZATIONS» 

TO BOLZLY GO WHERE МО МАМ HAS GONE BEFORE, 


YEOMAN? SIR ENTER YOUR МАМЕ FOR THE LOG ? КЕМ 
ROCK YOU ARE IN COMMAND OF THE PROMETHEUS» CAPTAIN КЕМ» 
no YOU WISH A LIST OF THE POSSIBLE COMMANDS: SIR? YES 


SPOCK THE POSSIBLE COMMANDS ARE DESIGNATED ΒΥ 
THE FOLLOWING NUMBERS OF CODE WORDS 


CORE COMMAND 


RANGE REPEAT RANGE АМП BEARING OF ENEMY 
FHASEF FIRE FHASERS FORWARD BANK 

PHASER FIRE FHASERS REAR BANK 

TORFF FIRE PHOTON TORPEDOES FORWARD 
ТОКЕК FIRE PHOTON ТОКРЕТОЕ З REAR 

PROBE LAUNCH ANTIMATTER FROBE CONLY 10) 
CLOSE APPROACH ENEMY CIMPULSE DRIVES 
AWAY RETREAT FROM ENEMY CIMFULSE DRIVE > 
PURSE APPROACH ENEMY (WARE ПКІМЕ) 
ESCAPE RETREAT USING WARE DRIVE 

SHIELDS USE OPTIMUM SHIELD 

ROTATE ROTATE THE ӨМІР 

CHANCES FIRING CHANCES 

COMMANDS REPEAT COMMANDS 

DAMAGE FULL DAMAGE REPORT 

BLUFF CORBOMITE MANEUVER 

WATT ENEMY MOVES NEXT 

SUICIDE SELF-DESTRUCTION 

SURRENTER GIVE-UP TO ENEMY 

VEER TURN 90 DEGREES LEFT 

КУЕЕК TURN 90 TEGREES RIGHT 


NOTE WEAPON RANGES АКЕ 
FHASERS 0-400 MGM OPTIMUM 200 MGM) 
TORPEDOES 300-700 MGM (OPTIMUM 500 MGM) 
FROÜRBES ALL. RANGES 


PHASERS ARE MORE DEADLY THAN ТОКРЕПОЕЗ, 

PROBES CAUSE TOTAL ВЕЗТКУСТТОМ BUT ARE EFFECTIVE 
ONLY 7 PERCENT OF THE TIME (APPROXIMATELY, 
TORPEDOES AND FHASERS ARE MORE DEADLY WHEN THE 
BEARING OF THE ENEMY IS CLOSE TO 0,180, АМП-180 
DEGREES • 


KEN CAPTAIN’S LOG» STAR DATE 517.657 . 
WE ARE РКЕЗЕМТЬУ ON COURSE РОК BETEGEUSE 7 
TO RESCUE MINERS УМПЕК THE АТТАСК 
BY OUTSIDER BATTLE CRUISERS. 
SULU SIR, I’M PICKING UF A VESSEL ON AN ATTACK VECTOR 
WITH THE FROMETHEUS. 
SPOCK  SHIP'/S COMPUTERS INDICATE THAT IT IS THE OUTSIDER VESSEL 
CTHULU UNDER THE COMMAND OF CAPTAIN TUEEL. 
КЕМ SOUND REI ALERT» LIEUTENANT UHURA, 
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UHURA AYE» SIR, 
SPOCK? CTHULU IS AT RANGE 925.163 MGM» BEARING -100.204 DEGREES, 
SULU WHAT ARE YOUR ORDERS» SIR ? LUEER 
КЕМ TURN 90 DEGREES LEFT MR. CHEKOV 
SFOCR: CTHULU IS АТ RANGE 390.304 MGM» BEARING -140.399 IEGREES. 
SULU WHAT ARE YOUR ORDERS» SIR ? TORFR 
КЕМ FIRE REAR FHOTON TORFEDOES 
СНЕКОУ MISSED НІМ» SIR, 
SPOCK: CTHULU IS АТ RANGE 534.3293 MGM; BEARING -14.0924 ПЕСКЕЕЗ, 
SULU WHAT ARE YOUR ORDERS» SIR ? FHASER 
КЕМ FIRE REAR РНАЗЕК BANK 
CHEROV INCORRECT VECTOR: SIR. 
SPOCK: CTHULU IS АТ RANGE 448.67 MGM, BEARING -116.54 DEGREES, 
SULU WHAT ARE YOUR ORDERS» SIR ? ТОКЕК 
REN FIRE REAR PHOTON TORFELOES 
СНЕКОУ  BIRECT HIT? SIR, 
SPOCK А HIT ON SHIELD * 1 . 
SPOCK? CTHULU IS АТ RANGE 796,981 MGM: REARING 42.2506 DEGREES, 
SULU WHAT ARE YOUR ORDERS, SIR ? ТОКРК 
NEN FIRE REAR РНОТОМ TORFEDOES 
CHEROV INCORRECT VECTOR: SIR. 
ӨРОСК: CTHULU IS AT RANGE 205.356 МОМ, BEARING -150.974 DEGREES. 
SULU WHAT АКЕ YOUR ORDERS SIR P WAIT 
КЕМ LET'S WAIT? WHAT WILL THE ENEMY ПО NEXT 
SFOCK: CTHULU IS AT RANGE 811.958 МБМ, BEARING -132.879 DEGREES, 
SULU WHAT ARE YOUR ORDERS» SIR ? BLUFF 
КЕМ LIEUTENANT: OFEN А VOICE CHANNEL TO STAR FLEET 
NEN USE CODE 2. 
UHURA CODE 2» SIR? THE OUTSIDERS BROKE CODE 2 YESTERDAY: SIR. 
КЕМ CODE 2» LIEUTENANT: IMMEDIATELY. 
UHURA AYE» SIR. GO АНЕАП, SIR, 
КЕМ THIS IS САРТАТМ KEN OF THE STARSHIF FROMETHEUS. 
WE ARE UNDER ATTACK BY THE QUTSIDER ӨМІР CTHULU 
АМП, IN ORDER TO PREVENT THE PROMETHEUS FROM FALLING 
INTO ENEMY HANDS; UE ARE ACTIVATING THE СОКВОМТТЕ 
DEVICE. SINCE THIS WILL RESULT IN THE COMPLETE 
ANNIHILATION OF ALL MATTER WITHIN А RANGE OF 5000 
MEGAMETERS» ALL VESSELS SHOULD BE WARNED TO STAY 
CLEAR OF THIS AREA FOR THE NEXT 3 
SOLAR YEARS. 
I WISH TO RECORD COMMENIATIONS FOR THE ENTIRE CREW 
ANI ESPECIALLY СОММАМПЕК 5РОСК» LIEUTENANT 
COMMANDER SCOTT? DOCTOR MCCOY, LIEUTENANT UHURA» 
LIEUTENANT SULU? АМП ENSIGN СНЕКОУ. 
SULU NO IMMEDIATE CHANGE IN QUTSIIER COURSE ANI! SPEED» SIR. 


SPOCK ТТ WOULD SEEM THAT THEY MAVE» às YOU HUMANS FUT ІТ» 
"CALLED OUR BLUFF^» CAPTAIN,. 

ӘРПСК: CTHULU ΤΏ AT RANGE 360.429 МЕМ» BEARING 122.279 DEGREES, 

SULU WHAT ARE YOUR ORDERS» SIR ? PURSE 

KEN APPROACH ENEMY AT WARE SPEED 

БРОСОК? CTHULU TS AT RANGE 722.898 МОМ, BEARING 113.52 DEGREES. 

SULU WHAT ARE YOUR ORDERS» SIR ? CLOSE 

КЕМ СОМЕ. UF ON THE ENEMY VESSEL 

SPOCK? CTHULL TS AT RANGE 189,008 МОМУ BEARING -88.,9298 DEGREES, 

SULU WHAT ARE YOUR QRUERSy»y SIR P PHASER 

КЕМ FIRE REAR FHASER BANK 

CHERUV. TNCORRECT VECTOR» SIR: 

SPOCK? CTHULU IS AT RANGE 449.824 MGM? BEARING 131,995 DEGREES. 

SULU WHAT ARE YOUR ORBERS» SIR T РНАЗЕК 

КЕМ FIRE REAR FHASER BANK 

CHEROU FHASERS FIRING» SIR. 

CHEROV MISSED НІМ» SIR. 

ӘРПССК» THE OUTSIDER IS FIRING FHOTOM TORFEDOES AT Us 

A DIRECT HIT QN SHIELD d 3 . 

SULU WHAT ARE YOUR ORDERS.» SIR P WATT 

КЕМ LET S UAIT: WHAT WILL THE ENEMY ПО NEXT 

SPCR? THE OUTSIDEN Та FIRING FHOTON TORFEUOES AT US 

EVASIVE MANEUVERS WERE EFFECTED» NO DAMAGE. 
SULU WHAT ARE YOUR QRDERS: SIR P ROTATE 
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KEN TURN US ABOUT 180 DEGREES» MR.SULU 
SEFOCKs THE OUTSIDER IS FIRING PHOTON TORPEDOES AT US 

EVASIVE MANEUVERS WERE EFFECTEDsSNO DAMAGE. 
SPOCK? CTHULU IS AT RANGE 648.824 МОМ» BEARING “48.0051 DEGREES. 
SULU WHAT ARE YOUR ORDERS» SIR ? WANY 
SULU TROUBLE HEARING YOU CAPTAIN КЕМ 
SULU WHAT ARE YOUR ORDERS» SIR ? AWAY 
КЕМ RETREAT FROM THE ENEMY 
SPOCK? CTHULLU. IS AT RANGE 478.25 MGM? BEARING -69,52986 DEGREES. 
SULU WHAT ARE YOUR ORDERS» SIR ? ESCAFE 
КЕМ RETREAT АТ TOF WARF SPEEI 
SFOCK2 CTHULU IS АТ RANGE 472.399 MGM» BEARING 108.811 DEGREES, 
SULU WHAT ARE YOUR ORDERS SIR ? SURRENDER 
КЕМ LIEUTENANT: ӨРЕМ А VOICE CHANNEL TO THE ENEMY 
KEN THIS IS САРТАТМ КЕМ ОҒ THE STARSHIP РКОМЕТНЕЦЗ. 

WILL YOU АССЕРТ OUR UNCONDITIONAL SURRENDER? 
TWEEL Ом BEHALF ОЕ THE QUTSIDER EMPIRE» I ACCEFT YOUR 
UNCONDITIONAL SURRENDER» РКЕРАКЕ FOR IMMEDIATE BOARDING, 


COMPUTER, DO YOU WISH ТО ATTEMFT ANOTHER BATTLE 
IN COMMAND OF THE PROMETHEUS ? NO 
COMPUTER πο YOU WISH TO CHANGE SHIP ? МО 


RUN COMFLETE, 


Program Listing 


30 НЕМ SET RANDOM NUMBER 

40 LET м6=11м (0) 

50 LET KS=INT(R6) 

60 (ЕТ wKS=k6=RS 

70 LET HSzKkND (RS) 

80 DIM N$(16)» O8(2))9 2%(21) 

90 DEF FNO(B)zINT(ARS(H/90)) 

100 DEF FNX(B)2z3.,1415926* ARS (80 -ARS(R) ) /180 
110 FOR ізі To 8 

120 REAC 1%(1) 

130 NEXT I 

140 REM PLACES TO GO 

150 DATA GAMMA 7sALPHA CENTAURI 

160 DATA SIRIUS 12 ВЕТЕСЕО5Е 7 

170 DATA SOL 3»501 9 

180 DATA ALDERBARAN SsANDROMENDA 

190 FOR а | TO 16 

200 REAL М%(1) 
210 МЕХТ 1 

220 REM THE GOOD GUY'S SHIPS 

230 DATA ENTERPRISE, SOL-KEEPER4BRAVE.EXETER 
240 DATA ACTURUSsSONGeEBIROS,DRAGON, LION 
250 DATA ЕХСА{ ІВЕК, TIGER REPUBLIC DEFIANT 
260 DATA РКОМЕТНЕЦЅ , SIBERIA LENIN MARX 
270 FOR а] TO 3 

280 REAC K$(I) 

290 NEXT I 

300 REM ТУРЕ OF RANDIES 

310 DATA KLINGON КОМО АМ». OUTSIDER 

320 FOR ja} ІС 5 

330 READ М8%(1) 

340 NEXT I 

350 REM HADOIFS'! SHIPS 

360 DATA CTHULUSGUARK«KLIXSNIF I XOTOP,KLEEF 
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370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 


570 
580 
590 
600 
610 
620 
630 
540 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
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РОК [=] TO 5 

READ Т$ (1) 

МЕХТ I 

REM LETS МАМЕ THE CAPTAIN ОЕ THE BADDIES 
DATA КІ ЕЕК» КҮЈКА 6 ОҮЅМІР I чо ЛЕМ о TWFEL 

FOR I=] TO δὶ 

READ OS(I) 

NEXT T 

DATA RANGE AND BEARING OF THE ENEMY 

DATA FIRE FORwARD PHASER BANK 

DATA FIRE REAR PHASER BANK 

DATA FIRE FORWARD PHOTON IORPEDOES 

DATA FIRE REAR PHOTON TORPEDOES 

DATA LAUNCH ANTIMATTER PRORE 

DATA COME UP ON THE ENEMY VESSEL 

NATA RETREAT FROM THE ENEMY 

DATA APPROACH ENEMY AT WARP SPEED 

DATA RETREAT АТ TOP wARP SPEED 

DATA "USE OPTIMUM SHIELD DEPLOYMENT MR ,SULUN 
DATA "TURN US ABOUT 180 DEGREES» MR.SULU" 


DATA "MkeSPOCKs WHAT ARE OUR CHANCES АТ А HIT!" 

DATA "MR, SPOCK» WHAT OPTIONS ARE AVAILABLE" 

DATA "MR,.SPOCKs, FULL DAMAGE REPORT" о | 

DATA "LIEUTENANT. OPEN А VOICE CHANNEL TO STAR FLEET" 
DATA "LET'S WAIT, WHAT WILL THE ENEMY DO NEXT" 

DATA "ACTIVATE COMPUTER DESTRUCT SEQUENCE" 

DATA "LIEUTENANT, OPEN A VOICE CHANNEL TO THE ENEMY" 
DATA "TURN 90 DEGREES LEFT MR, CHEKOV" 

DATA "TURN 90 DEGREES RIGHT MR, CHEKOV" 

FOR [ж] TO οἱ 

READ 2$(I) 

NEXT 1 

DATA RANGE + РНАЅЕҒ PHASER TORPF 

DATA TORPRsPROBE eCLUSE » AWAY 

DATA PURSE + ESCAPE SHIELDS 

DATA ROTATE*CHANCES*COMMANDS 

DATA DAMAGE ВЕЧЕР, WAIT,SUICIDE 

DATA SURRENDER LVEER , ВУЕЕКоН 

PRINT 

LET 5$=№$ (АМО (0)%16+1) 

PRINT "SPACE, THE FINAL FRONTIER," 

PRINT "THIS IS THE VOYAGE OF THE STARSHIP "S$," 
PRINT "IT S FIVE YEAR MISSION, TO EXPLORE STRANGE NEW WORLDS" 
PRINT "TO SEEK OUT NEW LIFE AND NEW CIVILIZATIONS," 


E "TO BOLOLY GO WHERE NO MAN HAS GONE BEFORE," 

M 

PRINT 

PRINT TAB(20)3"S ТА R UARP " 

PRINT ТАВ(20)4"-----------------! 

PRINT 

PRINT"YEOMAN SIR ENTER YOUR NAME FOR THE 10084 

INPUT CS 

PRINT "SPOCK YOU ARE IN COMMAND OF THE "S$", CAPTAIN "C$" ÜU 
PRINT " 00 YOU WISH A LIST OF THE POSSIBLE COMMANDS, 51451 
INPLT AS 

IF A$«»"YES" THEN 950 

60508 5530 

60508 5950 

PRINT 

LET ESsK$(RND(0) *3«1) 


LET FSaR$(RND(0)95«1) 

(ЕТ USaT$ (АМО (0) 94591) 

LET 0$2L$ (ЕМО (0) +841) 

LET \=ж50% (RND(0)-,5) 

PRINT CS" CAPTAIN'S LOG, STAR DATE "9999RND(Q) p, 
PRINT " WE ARE PRESENTLY ON COURSE FOR "305$ 

ON INT(RND(0)#5)¢1 GOTO 1040, 1070» 1100» 1120» 1140 
PRINT! To RESCUE MINERS UNDER THE ATTACK" 

PRINT " BY "SES3" BATTLE CRUISERS," 

GOTO 1150 


1070 PRINT" WITH А CARGO OF DILITHIUM CRYSTALS TO " 

1080 PRINT" РОМЕН THE COLONISTS STATION" 

1090 GOTO 1150 

1100 PRINT" To SEARCH FOR NEW MINERALS FOR THE FEDERATION" 
1110 GOTO 1150 

1120 PRINT" WITH MARTIAN FLU-CURE' 

1130 GOTO 1150 

1140 РКІМІ" FOR OBSERVATION OF RLACK HOLES" 

1180 PRINT "SULU SIR, I'M PICKING UP А VESSEL ON AN ATTACK VECTOR" 
1160 PRINT н МІТн ΤΗΕ 56480! 

1170 PRINT "SPOCK SHIP'S COMPUTERS INDICATE THAT IT IS THE "1 
1180 PRINT Е$;" VESSEL " 

1190 PRINT " "69:9 UNDER THE COMMAND OF CAPTAIN 8806180! 
1200 PRINT C$i" SOUND RED ALERT» LIEUTENANT ОНОВА," 

1210 PRINT "ОНОВА AYE» SIR," 

1220 IF RND(0)»,5 THEN 1250 

1930 LET x$=2"SuLU" 

1240 GOTO 1260 

1250 (ЕТ AS$="CHEKOV" 

1260 (ЕТ Hl=F2=G=X=S=0 

1270 (ЕТ Ра0 

1280 FOR 1=1 TO 4 

1290 LET 2(1) =100 

1300 LET 5 (1) =100 

1310 МЕХТ І 

1320 LET Rs1000=100#RNO (0) 

1330 LET 823609 (ЕМО (0) 2,5) 

1340 LET 812360% (ЕМП(0)-.5) 

1350 GOTO 01380 

1360 ІҒ 1<7 ТНЕМ 01390 

1370 IF 1>12 THEN 01390 

1380 GOSLB 05810 

1390 PRINT X$"! ИКАТ ARE YOUR ORDERS» SIR"; 

1400 INPUT M$ 

1410 FOR |=] TO 21 

1420 IF Z$(I)zM$ THEN 1980 

1430 NEXT I 

1440 CHANGE M$ TO M 

1450 LET 1zM(1)-27 

1460 IF M(1)z1] THEN 1480 

1470 LET 1=10%1+м (2) +27 

1480 IF I<] THEN 1500 

1490 IF I«22 THEN 1520 

1500 PRINT Xx$1" TROUBLE HEARING YOU CAPTAIN "SCS 

1510 GOTO 01390 

1520 PRINT 511 "0%(1) 

1530 ІҒ І>12 ІМЕМ 1570 

1540 IF 1>6 ТНЕМ 1560 

1550 ON I 6010 71380» 1580» 1610, 1640, 1670» 71700 
1560 ON (1-6) GOTO 1730» 1730, 1760» 1760» 2670» 1730 
1570 ON (1-12) GOTO 2780» 2900» 2920» 1790» 3710, 3540, 3630» 


6180» 6210 
1580 IF н1<7 THEN 1900 
1590 PRINT "CHEKOV FORWARD PHASERS ARE OEAD» SIR." 
1600 GOTO 3710 
1610 IF Hi1«6 THEN 02320 
1620 PRINT "CHEKOV REAR PHASER IS DEAD» SIR," 
1630 GOTO 3710 
1640 IF H1«9 THEN 2340 
1650 PRINT "CHEKOV FORWARD PHOTON TORPEDOES ARE DEAD: SIR," 
1660 GOTO 3710 
1670 IF H1«8 THEN 2410 
1680 PRINT "CHEKOV REAR РНОТОК TORPEDO IS DEAD» SIR," 


1690 GOTO 3710 

1700 IF H1«11 THEN 2430 

1710 PRINT "CHEKOV PROBE LAUNCHER IS DEAD» SIR." 
1720 GOTO 3710 

1730 IF K1<14 THEN 2520 

1740 PRINT "SULU IMPULSE ENGINES ARE DEAD, SIR," 
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1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
e020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2990 
2300 
2310 
230 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
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GOTO 3710 

IF Н1<11 THEN 2520 

PRINT "SULU WARP DRIVE IS DEAD» SIR," 

GOTO 73710 

IF H2«1] THEN 1820 

PRINT "SPOCK THE "$E$3" FAS NO ЕМСІМЕ5» SIR," 
GOTO 3710 

IF G=O THEN 3270 

PRINT "5РОСК I DO NOT THAT THE "1E$4"S WILL BE FOOLED" 
PRINT " BY THAT MANEUVER AGAIN, SIR," 

GOTO '3710 

IF ABS(B)«90 THEN 1890 

PRINT "CHEKOV INCORRECT VECTOR, SIR," 

GOTO 3710 

PRINT "СНЕКОУ PHASERS FIRING, SIR." 

LET R9sR 

LET B9zB 

GOSL& 6130 

IF RNO(0)<F8 THEN 1960 

PRINT "CHEKOV MISSED HIM, SIR," 

GOTO 3710 

JF RND(0)<e2 THEN 2140 

LET \Уж.5 

LET Καὶ 

FOR К\=2 TO 4 

IF S(K)»sS(K1) THEN 2020 

LET кек] 

NEXT КІ] 

IF $(К)>50 THEN 2050 

LET KeINT(RND (0) 98491) 

LET Hesk2eV 

PRINT "SPOCK А HIT ON SHIFLD #Нукуи, п 

IF S(K)=0 THEN 2170 

(ЕТ S(K) 25 (К) =30%\% (ЕМО (0) 6,1) 

GOTO 2100 

IF S(K)»0 THEN 2130 

PRINT " WHICH IS NOW GONE." 

LET S(K)2s0 

6010 3710 

LET vs) 

PRINT "CHEKOV DIRECT WIT, SIR," 

GOTO 1980 

PRINT "СНЕКОУ GOT HIM, SIR," 

IF KND(0)«,5 THEN 5440 

PRINT "SPOCK THE "ЕФ; VESSEL REMAINS INTACT» CAPTAIN,'! 
PRINT C$$" OPEN А HAILING FREQUENCY», LIEUTENANT," 
PRINT "ОНОВА HAILING FREGUENCY OPEN», SIR," 

PRINT C$i" THIS IS CAPTAIN "3C$1" OF THE STARSHIP "56484," 
PRINT " PREPARE TO COMMENCE BEAMING OVER SURVIVORS."! 
IF RND(0)«.S THEN 2300 


PRINT Us" I AM AFRAID IMAT wILL BE QUITE IMPOSSIBLE." 

PRINT " CAPTAINs SINCE ΝΕ HAVE JUST INITIATED OUR AUTO-DESTRUCT,'! 
PRINT" 109876593218 

PRINT 

GOTO ,5640 

PRINT U$Sšw VERY WELL» CAPTAIN». OUR SHIELDS HAVE BEEN DEACTIVATED." 
GOTO 05840 

IF ABS(R)«90 THEN 1870 

GOTO 1890 

IF AgS(R)»s90 THEN 1870 

LET R9=R 

LET 8928 

60565 6080 

IF Ем0(0)>ҒӘ THEN 1940 

IF Ем0(0)<.28 THEN 1970 

GOTO 02140 

IF ABS(B)«90 ІНЕМ 1870 

6010 2350 

IF Х<10 THEN 2960 

PRINT "CHEOV WE HAVE NO MORE PROBES, SIR," 


2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 


GOTO 3720 
LET даҳ] 
IF RND(0)«.,07135 THEN 2500 
PRINT "SPOCK PROBE LOST» CAPTAIN," 
coe 3710 
INT "SPOCK PROBE IS HOM " ' 
со E I OMING ON THE "ҢҒ" , SIR," 
ОМ (1-6) GOTO 2530, 2560 6 
caste. абд * 2600, 2630, 2670» 2740 
(ЕТ R=ABS(R=Y) 
GOTO 3710 
GOSUB 4940 
(ЕТ HzABS (R*Y) 
TF R»5000 THEN 4780 
GOTO 3710 
GOSLB .4980 
(ЕТ HzABS (R-2*Y) 
GOTO 23710 
GOSUB 5040 
LET HaABS(R«2*Y) 
IF R»5000 THEN 4780 
GOTO 3710 
LET Sz] 
FOR Ja2 TO 4 
IF 2(J)«z2(S) THEN 2710 
LET Say 
NEXT J 
PRINT "SULU SHIELD #";S;" IS IN P ." 
Сото ος 1 OSITION 


LET BsB+180 
IF B«s180 THEN 3710 
(ЕТ B=B=36 0 
GOTO 3710 
PRINT "SPOCK AT RANGE "Ri" 
gs ος E "ІНІМ" I WOULO ESTIMATE THE PROBABILITY" 
LET Ηθςβ 
60543 6130 
E Р8=2Р8%100 
INT t ОҒ А PHASER HIT " " : 
PET geen E IT AT "1F84" AND ΤΗΕ PROBABLILITY" 
(ЕТ &9aB 
605808 6080 
(ЕТ Р9=Р9%100 
PRINT " ОҒ А PHOTON TORPEDO АТ SFOs 
GOTO 1390 
GOSUB 5530 
GOTO 1390 
PRINT "SPOCK DAMAGES ARE AS FOLLOWS»! 
PRINT TAB(10)3"OF SHIELOS REMAINING" 
PRINT ТАВ (6) "SHIELD #"31AB(16) $SS$3TAB (30) IF $ 
FOR Js] To ὁ 
PRINT ТАВ (9) #Ј:ТАВ (16) 5200) 3 ТАВ (30) 15.) 
NEXT J 
PRINT 5510 ОАМАСЕН; 
IF F1>S,S THEN 03020 
PRINT ТАВ (20) "NONE" 
6970 3140 
PRINT TAB(20)$"REAR PHASER DEAD" 
IF н1<7 THEN 3140 
PRINT ТАВ (20) $ "FORWARD PHASERS DEAD" 
IF H1«8 THEN 2140 
PRINT TAB(20)3"REAR PHOTON TORPEDOES DEAD" 
IF H1<9 THEN 3140 
PRINT ТАВ (20) $1"FORWARD PHOTON TORP АЦ" 
а ТНЕМ 3140 шаа 
МГ TARB(20)} "PROBE LAUNCHER D R " 
PRINT ТАВ (20) $ WARP DRIVE ос dia 
IF Н1<104 THEN 3140 
PRINT TAB(20) "IMPULSE POWER LOST" 
PRINT FSS" ОАМАСЕНУ 
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3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 


3290 
3300 
3319 
3320 
3330 
3340 
3350 
3360 
3370 
3380 
3390 
3400 
3410 
3420 
3430 
3440 
3450 
3460 
3470 
3480 
3490 
3500 
3510 
3520 
3530 
3540 
3550 
3560 
3570 
3580 
3590 
3600 
3610 
3620 
3630 
3640 
3650 
3660 
3670 
3680 
3690 
3700 
3710 
3720 
3730 
3740 
3750 
3760 
3770 
3780 
3790 
3800 
3810 
3820 
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IF H2>S.S THEN 3180 

PRINT ТАВ (20) "МОМЕ" 

GOTO 3250 

PRINT ТАВ (20) "Аі PHASERS DEAD" 

IF H2«9 THEN 3250 

PRINT ТАВ (20) "ALL TORPEDOES DEAD" 
IF H2«11 THEN 3250 

PRINT TAB(20)3"WARP DRIVE DEAD" 

IF м2<14 THEN 3250 

PRINT ТАВ (20) š MIMPULSE ENGINES DEAD" 
PRINT 

GOTO 1390 

PRINT C$" USE CODE 2." 

PRINT "UHURA CODE 2» SIR? THE “$ES$"S BROKE CODE 2 YESTERDAY, 
SIR,' 


PRINT C$" CODE 2» LIEUTENANT» IMMEDIATELY." 

PRINT "НОНА ΑΥΕ SIR, GO AHEAD, SIR," 

PRINT C$$" THIS IS CAPTAIN "4C$3" OF THE STARSHIP "jS$j4"," 
PRINT " WE ARE UNDER ATIACK BY THE "SE$3" SHIP НИ$ 

PRINT " АМО» IN ORDER TO PREVENT THE "3S$4" FROM FALLING" 
PRINT " INTO ENEMY HANDS» WE ARE ACTIVATING THE CORBOMITE" 
PRINT " DEVICE. SINCE ІКІ5 WILL RESULT IN THE COMPLETE" 
PRINT " ANNIHILATION OF ALL MATTER WITHIN А RANGE OF 5000" 
PRINT ч МЕСАМЕТЕН5» ALL VESSELS SHOULD BE WARNED TO STAY" 
PRINT " CLEAR OF THIS AKEA FOR THE NEXT "SINT(RND (0) #4) +2 
PRINT " SOLAR YEARS." 

PRINT " 1 WISH TO RECORD COMMENDATIONS FOR THE ENTIRE CREW" 
PRINT " AND ESPECIALLY COMMANDER ЗРОСК» LIEUTENANT" 


PRINT " COMMANDER SCOTT» DOCTOR MCCOYs LIELTENANT ОНОВА," 
PRINT " LIEUTENANT SULUs AND ENSIGN CHEKOV," 
LET Ge} 


IF RND(0)».2 THEN 3500 

PRINT "SULU  "1E$1" IS MOVING AWAY АТ МАКР10» SIR," 

PRINT "SPOCK ΤΗΕ TACTIC APPEARS TO HAVE BEEN EFFECTIVE» SIR," 
PRINT " THE "j1E$$" HAS BEEN REPULSED." 

GOTO 05840 

PRINT "SULU NO IMMEDIATE CHANGE IN "ВЕ" COURSE AND SPEED» SIR," 
PRINT “SPOCK ІТ WOULD SEEM THAT THEY HAVE» AS YOU HUMANS PUT IT," 
PRINT " ‘CALLED OUR BLUFF *« CAPTAIN," 

GOTO 3710 

PRINT "COMPUTER 10 9 8 7 6 5 4 32 1" 

PRINT " THE "3583" HAS BEEN DESTROYED." 

(ЕТ us200#RND (0) 

PRINT i RADIUS OF EXPLOSION 8904" MGM," 

IF GosR THEN 3610 

PRINT " w#gESs' VESSEL REMAINS INTACT." 


GOTO 5840 
PRINT " ΜΕΣ VESSEL DESTROYED," 
GOTO 5840 


IF E$«»"ROMULAN' THEN 03660 

PRINT "UHURA NO ANSWER FROM THE "ЗЕ". SIR," 

GOTO 3710 

PRINT CS$" THIS IS CAPTAIN "3CS3" OF THE STARSHIP "56480! 

PRINT " WILL YOU ACCEPT OUR UNCONDITIONAL SURRENDER?" 

PRINT US$" ON BEHALF OF THE "E$" EMPIRE» I ACCEPT YOUR" Ὃ.. 
PRINT " UNCONDITIONAL SURRENDER, PREPARE FOR IMMEDIATE BOARDING." 
GOTO 5840 

REM ENEMY MOVE DECISION SECTION 

IF H2«9 THEN 4030 

IF Н2<11 THEN 3870 

IF к2>13.9 THEN 4670 

IF Hl1»10.9 THEN 4780 

IF H1»8.9 THEN 3820 

IF R«2009RND(0) THEN 4830 

GOSLB 4880 

(ЕТ HsABS (В+) 

IF R»5000 THEN 4780 

GOTO 1380 

IF KND(0)«,5 THEN 3780 


3830 
3840 
3850 
3860 
3870 
3880 
3890 
3900 
3910 
3920 


3930 
3940 
3950 
3960 
3970 
3980 
3990 
&000 
&010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
4100 
4110 
4120 
4130 
4140 
4150 
4160 
4170 
4180 
4190 
4200 
4210 
4220 
4230 
4240 
4250 
4260 
4270 
4280 
4290 
4300 
4310 
4320 
4330 
4340 
4350 
4360 
4370 
4380 
4390 
4400 
4410 
4420 
4430 
4440 
4450 
4460 
4470 
4480 


4490 
4500 


GOSUB 4940 

(ЕТ KsABS(R-Y) 

IF R»5000 THEN 4780 
GOTO .1380 

IF H1«7 THEN 4000 

IF H1«9 THEN 3770 

IF Н1>10.9 THEN 4780 
IF RND(0)«,5 THEN 3820 
IF RND(0)«,5 THEN 3550 
60508 4980 


LET HzABS (R*2*Y) 

IF H»5000 THEN $780 
GOTO 1380 

00508 5040 

(ЕТ RaARBS(R-2*Y) 

IF к>5000 ТНЕМ 4780 
GOTO 1380 

ІР k>700 THEN 3960 
ІҒ К>200 ТНЕМ 3920 


GOTO 3770 

IF Μὸ«θ THEN 84200 

IF H1«? THEN %120 

IF R«300 THEN 3960 

IF H»700 THEN 3920 

IF H1»7.9 THEN 4090 

IF FND(B1)»FND(B) THEN 3960 
IF ABS(B1-90)»zABS(B-90)-20 THEN 5080 
IF Км0(0)<.5 THEN 3960 
GOTO 3920 

LET «9zH 

(ЕТ 9958] 

60508 6130 

LET w9=R 

(ЕТ B9sB1 

60508 56080 

ІР Ға>ҒӘ THEN 3960 
6070 4050 

IF Н1<7 THEN 4290 

IF R»150 THEN 42460 

IF ЕмО(0)<.5 THEN 3830 
GOTO 3960 


IF #>=400 THEN 04270 

IF А85(81)<30 THEN 5150 

GOTO 3830 

IF R»700 THEN 3920 

GOTO 4080 

IF k>700 THEN 3920 

LET K9zK 

LET B9=B1 

GOSUB 6080 

(ЕТ кўн 

LET 8928) 

60508 6130 

IF F9»F8 THEN 4080 

IF Н1>6.9 THEN 4390 

IF FNO(B1)»FNU(B) THEN 3960 
IF АН5(В1-90)>зАВ5(Ве90)е-20 THEN 5150 
GOTO 3960 

IF H1<6 THEN 4660 

LET TzHl-v 

IF А88(1е6)<.1 THEN 4470 

IF ABS (H1-6,26)»5,3 THEN 4470 
PRINT "СНЕКОУ REAR PHASER DEAD, SIM," 


GOTO 4660 
IF ABS(T=?)<,1 THEN 4510 
IF ABS(H1-7,25)>,3 THEN 4510 


PRINT "СНЕКОУ FORWARD PHASERS DEAD» SIR," 
GOTO 4660 
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4510 
4520 
4530 
4540 
4550 
4560 
4570 
4580 
4590 
4600 
4610 
4620 
4630 
4640 
4650 
4660 
4670 
4680 
4650 
4700 
4710 
4720 
4730 
4740 
4750 
4760 
4770 
4780 
4790 
4800 
4810 
4820 
4830 
4840 
4850 
4860 
4870 
4880 
4890 
'4900 
8910 
14920 
14930 
14940 
14950 
14960 
14970 
асай 
4990 
5000 
5010 
5020 
5030 
5040 


5050 
5060 
5070 
5080 
5090 
5100 
5110 
5120 
5130 
5140 
5150 
5160 
5170 
5180 
5190 
5200 
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IF Ан5(Теа)<.1і THEN 4550 

IF ABS (H1-8.25)>.3 THEN 4550 

ΡΚΙΝΙ ИСНЕКОУ KFAR PHOTON TORPEDOES DEAD. SIR." 
GOTO 84660 

IF ABS(T#9)<.] THEN 4590 

IF AdS(H1-9.25)»,3 THEN 4590 

PRINT "CHEKOV FORWARD PHCTON TURPEDOES DEAD», SIR," 
GOTO 4660 

IF АН$(Т-11)<,1 THEN .4630 

IF АН5(Н1-11.25)>.3 THEN 4630 

PRINT "CHEKOV PROBE LAUNCHFH АМП МАНН DRIVE GONE» SIR," 
GOTO 4660 

IF ABS(T-14)«.1 THEN 44660 

IF АН$(н1-14.25)>.3 THEN 4660 

PRINT "CHEKOV IMPULSE ENGINES UFADs SIR," 


RE TURN 

IF 620 TREN 1360 

LET es] 

PRINT "SPOCK ΤΗΕ "SESE" SHIP 15 COMPLETELY CRIFPLED, SIR," 
PRINT " ПО YOU WANT TO SURRENDER} 

INPUT АЗ 


IF Asz"YES" THEN 2200 

PRINT "SPOCK NO YOU WANT TO DESTROY THE "SF $4". CAPTAIN'S 
INPUT АФ 

IF Asz"YES" THEN 1390 

5070 4790 

REM LOSS OF CONTACT SECTION 


PRINT "SULU CONTACT wITH THE "ЕФ Н VESSEL HAS BEEN BROKEN, SIR," 


PRINI CSS" RESUME COURSE FOR "3053's MR 6 SULU, "M 

PRINT "CREKOV AYE s SIR," 

GOTO S840 

REM ENEMY SUICIDE SECTION 

ΡΜΙΝΙ "SPOCK SENSORS INDICATE THAT TRE {РЄ IS OVERLOADING" 


PRINT " WHAT REMAINS OF ITS ANTIMATTER PODS», UNDOURTEDLY" 
PRINT " ASUICIDAL MOVE CAPTAIN., PODS wILL DETONATE" 

PRINT " ІМ 12 SECONDS -109 87654 3 2 |" 

GOTO 5440 


LET | HzR-200* (GND(0) 9,5) 
LET н=360 *(RND(0)-,5) 
LET в1=360% (КМО (0) 2,5) 
IF R»0 THEN 4930 

LET к=-к 

RETURN 

LET ксн»200%(кМ0(0)».5) 
LET #23608 (КМО (0) -,5) 
LET 5B812360* (KND(O) 2,5) 
RETUKN 

(ЕТ ксК-а00%(кМ0(0)».5) 
(ЕТ 523609 (RND(0) -,5) 
LET B12360* (KND(C0) 2,5) 
IF H»0 TREN 5030 

LET Hz-k 

RETURN | 
LET HzHe*400* (XNDUO) 5,5) 
LET Bz3609 (KND(0) *,5) 
LET 812360* (RND(O) 2,5) 
RETURN 

PRINT "SPOCK) THE "ЕФ: IS FIRING PHOTON TORPECOES АТ US" 
(ЕТ K9zR 

LET В9=81 

GOSLB 6080 

IF RND(O)»F9 THEN 5420 
IF RND (0) <.& THEN 5360 
GOTO 05210 

PRINT "SPOCK ΤΗΕ "ЕФ" IS FIRING PHASERS AT US,SIR,' 
LET Н9яК 

(ЕТ Н9-В1 

60508 6130 

IF RKND(0)»F8 THEN 5420 
IF RND(0)< 2 THEN 5360 


5210 
5220 
5230 
5240 
5250 
5260 
5270 
5280 
5990 
5300 
5310 
5320 
5330 
5340 
5350 
5360 
5370 
5380 
5390 
5400 
5410 
5420 
5430 
5440 
5450 
5460 
5470 
5480 
5490 
5500 
5510 
5520 
5530 
5540 
5550 
5560 
5570 
5580 
5590 
5600 


5610 
5620 
5630 
5640 
5650 
5660 
5670 
5680 
5690 
5700 
5710 
5720 
5730 
5740 
5750 
5760 
5770 
5780 
5790 
$800 
5810 
5820 
5830 
5840 
5850 
5860 
5870 
5880 
5890 


LET v=.,5 

LET KaINT (RNO (0) #4) 91 

IF 530 THEN -5250 

LET KS 

PRINT " A HIT ON SHIELD “Κο 
IF 2(К)<з0 THEN 5340 

LET 2(K)22(K) =30#V#(RND (0) *,1) 
LET HlzF1+V 


GOSUB 4410 

IF 2(K)»0 THEN 1360 

LET Z(K)20 

PRINT " SHIELD ἀκ} IS GONE," 
GOTO 1360 


PRINT "COMPUTER THE "3S$3" HAS BEEN DESTROYED." 
GOTO 5840 

LET vs] 

LET KaINT (RND (0) #4) +1 

IF 550 THEN 5400 

LET K=S 

PRINT "А DIRECT HIT ОМ SHIELD εκτ)! 

GOTO $260 

PRINT " EVASIVE MANEUVERS WERE ΕΕΕΕΟΤΕΩΙΝΟ DAMAGE," 
GOTO 1360 

PRINT 

LET Qz200*RND(0) 

IF G<R THEN 05500 

PRINT "COMPUTER RADIUS OF EXPLOSION "$Q3" мсм." 
PRINI " iSS} HAS BEEN DESTRUCTED." 

GOTO 5840 

PRINT "SPOCK HIES}! VESSEL DESTROYED," 

PRINT " RADIUS OF EXPLOSION Πω! MGM," 

GOTO 5840 

PRINT 


PRINT "SPOCK THE POSSIBLE COMMANDS ARE DESIGNATED BY" 


PRINT " THE FOLLOWING NUMBERS OF CODE WORDS " 
PRINT 


PRINI'CODE COMMAND" 

PRINT 

PRINT'RANGE REPEAT RANGE AND BEARING OF ENEMY" 
PRINTUPHASEF FIRE PHASERS FORWARD BANK" 
PRINT'PHASER FIRE PHASERS REAR BANK" 
PRINT''TORPF FIRE PHOTON TORPEDOES FORWARD" 
PRINT" TORPR FIRE PHOTON TORPEDOES REAR" 
ΡΝΙΝΤΗΡΜΟΒΕ LAUNCH ANTIMATTER PROBE (ONLY 10)" 
PHINT'"CLOSE APPROACH ENEMY (IMPULSE CRIVE)! 
PRINT'AWAY RETREAT FROM ENEMY (IMPULSE ORIVE)" 
PRINT"PLURSE APPROACH ENEMY (WARP DRIVE)" 
PRINT"ESCAPE RETREAT USING WARP DRIVE" 
PRINT'"SHIELDS USE OPTIMUM SHIELD" 

PHINT"ROTATE ROTATE THE SHIP" 

PRINT'ICHANCES FIRING CHANCES" 

PRINT'COMMANDS REPEAT COMMANDS" | 

PRIN['DAMAGE FULL DAMAGE REPORT" 

PRINI"BLUFF CORBOMITE MANEUVER" 

PRINT"WAIT ENEMY MOVES NEXT" 

PRINT"SUICIDE SELF -DESTRUCTION" 

PRINT'ISURRENDER GIVE-UP TO ENEMY" 

РНІМТ ΝΕΕΕ TURN 90 DEGREES LEFT" 

PRINTI"RVEER TURN 90 DEGREES RIGHT" 

RETURN 


PRINTWSPOCK "Е IS AT RANGE "3R3" MGMe BEARING "В 


PRINI "DEGREES," 
RETURN 
PRINT 


PRINT "COMPUTER, DO YOU WISH TO ATTEMPT ANOTHER BATTLE" 


PRINI " IN COMMAND OF THE "1561 
INPUT AS 

IF A$«»"YES" THEN ‘5900 

GOTO 960 
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5900 
5910 
5920 
5930 
5940 
5950 
5960 
5970 
5980 
5990 
6000 
6010 
6020 
6030 
6040 
6050 
6060 
6070 
6080 
6090 
6100 
6110 
6120 
6130 
6140 
6150 
6160 


6170 
6180 
6190 
6200 
6210 
6220 
6230 
6240 
6250 
6260 


PRINT "COMPUTER DO YOU WISH TO CHANGE SHIP''j 
INPUI A$ 

IF AS<>"YES" THEN 6260 

LET S$=N$(RND (0) 41691) 


GOTO 890 

PRINT 

PRINT "NOTE WEAPON RANGES ARE!" 

PRINT!" PHASERS 0-400 MGM (OPTIMUM 200 MGM)" 
PRINT! TORPEDOES 300-700 MGM (OPTIMUM 500 MGM)" 
PRINT W PROBES ALL RANGES" 

PRINT 


PRINT "PHASERS ARE MORE DEADLY THAN TORPEDOES." 

PRINT "PROBES CAUSE TOTAL DESTRUCTION BUT ARE EFFECTIVE" 
PRINT "ONLY 7 PERCENT OF THE TIME (APPROXIMATELY) ο!’ 
PRINT "TORPEDOES AND PHASERS ARE MORE DEADLY WHEN THE" 
PRINT "BEARING OF THE ENEMY IS CLOSE 10 09180sAND=1]180"' 
PRINT "DEGREES." 

RETURN 

LET F920 

IF ABS(R9-S00)>200 THEN 6120 

LET F921]-(R9"500) 42740000 

LET FOF 9eSIN(FNX(B9) ) * (3-FND(B9))/3 

RETURN 

LET Е8=0 

IF R9»400 THEN .6170 

(ЕТ F8z1-(R9-200)^2/40000 

LET FB8zFB*SIN(FNX(B9)) * (S-FND(B9))/5 


RETURN 

IF Н1>=14 THEN 1740 
(ЕТ 8я8»90 

6070 2750 

IF Ні»зі4 THEN 1740 
(ЕТ dzB8-90 

IF 8»20 THEN 2750 
LET В=360-8 

GOTO 2750 

END 


An adaptation of this program designed specifically for the 


Radio Shack TRS-80 computer using Level II BASIC can be found on 
page 198 in Section II. 
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ВОМВ DISPOSAL SQUAD 


There is a time bomb with 10 wires. You must cut the wires to 
defuse the bomb. Unfortunately, because of the way the bomb was 
made, two of the wires will cause immediate explosion if they are 
cut. Out of the remaining eight wires, four are absolutely harmless. 
And you only have six moves to defuse the bomb. 


Flowchart for Bomb Disposal Squad 


CLOCK 
4 HARMLESS WIRES 
4 CURRENT WIRES 
2 IMMEDIATE EXP WIRES 
DYNAMITE 


Fig. 1-3—There are 4 harmless wires, 4 current wires, and 2 immediate explo- 
sion wires. 
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Sample Run 
RUN 


BOMB DISPOSAL SQUAD 


INSTRUCTIONS ARE AS FOLLOUS 


THE TIME ВОМВ IS SET TO EXPLODE AFTER 


AFTER b MOVES 
YOU MUST DEFUSE THE BOMB BEFORE 
THEN4 OR ELSE THE RESULTING 
EXPLOSION WILL GET YOU... 
THERE ARE 10 WIRES. LABELLED 1 
TO 104 2 OF THESE WIRES 
WILL CAUSE IMMEDIATE EXPLOSION 
IF CUT.. 
OF THE REMAINING & WIRES 
Ч ARE NOT CONNECTED TO ANY 
SENSOR, INCLUDING THE CLOCK. 
THE BOMB MAKER PLANTS THESE 
FALSE WIRES. JUST TO GIVE YOU A 
HARD TIME IN DEFUSING THE BOMB. 
WHICH WIRE TO CUT 
?о 
SILLY GOOSE4 YOU HAVE EXPLODED 
THE BOMB... 

BANG.. 
TO PLAY AGAIN TYPE 1 
IF МОТ TYPE D 
?1 
UHICH ШІКЕ TO CUT 


23 
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UHICH UIRE TO CUT 
2? 

SORRY. THAT WAS А HARMLESS WIRE 
UHICH UIRE TO CUT 

29 

UHICH UIRE TO CUT 

?1 

UHICH UIRE TO CUT 

?b 

YOU SHOULD BE UITH THE BOMB SQUAD 
YOU HAVE SUCCESSFULLY DEFUSED THE 
DEVICE IN ONLY 5 MOVES 

ТО PLAY AGAIN TYPE 1 

IF NOT TYPE D 

20 

NEVER DID LIKE EXPLOSIONS. DID you? 
RUN COMPLETE 
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Program Listing 


1D 


20 


30 
40 


50 
bÛ 
70 


20 
80 


100 
110 


120 
130 
140 
150 


1Һ0 


170 


180 


190 
200 


210 
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REM THIS IS THE PROGRAM OF BOMB 
DISPOSAL SQUAD 

REM THE BOMB CONSISTS ОҒ 4 STICKS 
OF 

REM DYNAMITE AND IS CONNECTED TO A 
REM DIGITAL CLOCK AND OTHER SENS- 
ORS. 

REM UNFORTUNATELY YOU CANNOT JUST 
REM CUT THE WIRES FROM THE CLOCK 
REM IF THE WIRES ARE NOT CUT 
ACCORDING 

КЕМ TO SEQUENCE, BANG. YOU BLOW UP 
PRINT 


PRINT 
PRINT 


PRINT ''TIME BOMB'' 


PRINT ''INSTRUCTIONS ARE AS 
FOLLOUS'' 

PRINT 

PRINT 

PRINT ''THE TIME ВОМВ IS SET TO 
EXPLODE'' 

PRINT ''AFTER b MOVES.'' 

PRINT ''YOoU MUST DEFUSE THE BOMB 
BEFORE'"' 

PRINT ''THEN4 OR ELSE THE RESULT- 
ING'' 


220 
230 
eun 


esu 
СЬО 


270 
280 
290 


300 


310 


320 


330 


340 
350 
360 
370 
380 
390 
400 
410 
420 
430 


PRINT ''EXPLOSION WILL GET Y0U..'' 
PRINT 

PRINT ''THERE ARE 10 WIRES, 
LABELLED 1'' 

PRINT ''TO 104 2 OF THESE UIRES'' 
PRINT ''UILL CAUSE IMMEDIATE 
EXPLOSION.'' 

PRINT ''IF CUT..'' 

PRINT ""ОҒ THE REMAINING 8 UIRES'' 
PRINT ''u ARE NOT CONNECTED TO 
ΑΝΥΤ 

PRINT ''SENSOR4 INCLUDING THE 
CLOCK.'' 

PRINT ''THE BOMB MAKER PLANTS 
ТНЕЗЕ"" 

PRINT ''FALSE WIRES. JUST TO GIVE 
YOU A'' 

PRINT ''HARD TIME IN DEFUSING THE 
BOMB.'' 

PRINT 

REM SET UP UIRE CONNECTIONS 

DIM WLIO} 

REM THE UIRES ARE 


А INT{RND{0} ж 11} + 1 


B 


INT{RND{O} κ 10} + 1 
IF B 


А ТНЕМ 390 


II 


WA} 3 
WU{B} = 3 
REM THE ABOVE TUO UIRES CAUSE 


EXPLOSION 
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ЧЧО 
450 
ЧЬО 
u?D 
440 
{ΠΠ 
500 


51D 
520 
530 


540 


550 
560 


570 
580 
590 


BUD 


Ь10 


bel 


b30 


bup 


b5D 


bbO 
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T = 0 


REM THE HARMLESS WIRES, Ш4Х} = 


С = INT{CRND{O} ж Ъ0} + 
IF C = A OR С = В THEN 
ШС} = 1 

D = INT{RND{O} ж 10} + 
IF D = C OR D = B OR D 
{ΠΠ 


WtD} 1 


I 


Е = INT{RND{O} ж 10} 


+ 


IF E = D OR E = C ORE 
= А THEN 520 
ШЕР = 1 


F = INT{RND{O} ж 101 
IF F = E ОКЕ = D OR F 


+ 


B OR F A THEN 55D 


ШЕР = 1 


1 


ΗΕ 


> 


КЕМ SET UP LIVE WIRES W{X} 


G = INT{RND{O} ж 10} + 


IF G = F ОК б = Е ОК G 
590 

IF G = С OR G = B OR G 
590 

416} = 2 


H = INT{RND{O} ж 10} + 


IF H = G OR H = F OR H 


= D THEN b30 

IF H = ς OR H = B OR H 
b30 

Ш{Н} = 2 


1 


THEN 


OR E 


ОК F 


THEN 


THEN 


THEN 


b70 
b80 


b90 


200 
710 
220 
730 
740 
750 
760 
770 
780 
790 


800 
810 
620 
830 
aun 
850 
80 
870 
880 


890 
300 
310 
920 
330 


I = INT{IRND{O} ж 107 + 1 

IF I = H OR I = б OR I = F OR I 
= D THEN b?U 
IF I-EORI 


C OR I 


В oR I 
= А THEN 670 

WI} = 2 

REM SET UP LAST WIRE U{X} = 2 
FOR J = 1 TO 10 

IF WJ} = 3 OR WJ} = 1 THEN 760 
ТЕ wftJ} = 2 THEN 760 

ШУ} = 2 

NEXT J 

REM ALL WIRES ARE NOT CONNECTED 
М = Û 

М = М+Ъ 


PRINT ''UHICH UIRE TO CUT'' 
INPUT L 

IF L< INT £L? THEN 800 

IF L < 10RL > 10 THEN 800 
IF ШТЕР = 3 THEN 870 

IF W{L} = 1 THEN 1030 

GOTO 1050 

PRINT 

PRINT ''SILLY GOOSE4 YOU HAVE 
EXPLODED'' 

PRINT ΤΗΕ BOMB...'' 

PRINT 

PRINT'' BANG..'"' 
PRINT 


PRINT 


75 


440 
950 
960 
470 
980 
990 


1000 
1010 
1020 
1030 
1040 


1050 
1060 


1070 
1080 


1040 


1100 


1160 


1130 


1140 


L150 


PRINT ""ТО PLAY AGAIN ТҮРЕ 111! 
PRINT ΙΕ NOT TYPE 0'' 

INPUT С 

IF C = 1 THEN 1010 

PRINT 

PRINT ''NEVER DID LIKE EXPLOSIONS, 
DID YOU?" 

STOP 

PRINT 

GOTO 380 

IF M > h THEN 870 

PRINT ''SORRY4 THAT WAS А HARM- 
LESS UIRE.'' 

GOTO ?ЧП 

IF М >h THEN 870 


ШТЕР = 1 
T= Т + 1 


IF T = 8 THEN 1110 

GOTO 790 

PRINT ''YOU SHOULD ВЕ UITH THE 
BOMB SQUAD'' 

PRINT ''YOU HAVE SUCCESSFULLY 
DEFUSED THE'' 

PRINT ''DEVICE IN ONLY''S M3 
т" MOVES'' 

GOTO 3138 


An adaptation of this program designed specifically for the 


Radio Shack TRS-80 computer using Level II BASIC can be found on 
page 204 in Section II. 
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BIORHYTHM 


This program computes your biorhythm for either a month or a 
year starting with the month and year you desire. Allit needs is your 
birth date. 


INPUT 
NAME, MONTH 
OR YEAR— 
BIRTH DATE 
STARTING DATE 


COMPUTE 
BIORYTHM 
PER DAY 


Flowchart for Biorhythm 
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Sample Вип 


ENTER YOUR МАМЕ ? КЕМ TRACTON 
ENTER EITHER M FÜR MONTH OR 


Y РОК YEAR» FOR YOUR PLOT 
? M 


ENTER YOUR BIRTH UATE 


MONTH DAY YEAR = P 10»30»1949 


ENTER STARTING MONTH AND YEAR ? 4,1978 


RIORYTHM CHART FOR КЕМ TRACTON 


BIRTHDATE ЗО ОСТОВЕК 194 


K=COGNITIVE ОК INTELLECT 
FsPHYSICAL STATE 
$=SENSTTIVITY OR EMOTIONAL 


EIORYTHM CHART FOR APRIL 
КЕМ ТКАСТОМ 


APRIL 
APRIL. 
APRIL. 
APRIL 
APRIL 
APRIL. 
APRIL. 
APRIL 
APRIL. 
APRIL 10 f 

APRIL 114 Ж 

APRIL 12 + Ж 

APRIL 13 + * 
APRIL 14 + Ж 
APRIL 15 T Ж 
AFRIL 16 + 
APRIL 17 

APRIL 18 

APRIL 19 

APRIL 20 

APRIL 21 

APRIL 22 

APRIL 22 

APRIL 24 $ 
APRIL 25 $ 
AFRIL 26 $ 

APRIL 27 $ 

APRIL 28 $ 

APRIL 29 $ + 
AFRIL 30 $ + 


ο ӨЗ CAD D ο > 
ὃς 
++ 


. бА Qu таты «шш ° 
Aus оо. P ta 4. +a + өле s -- 3X مسد س سے پس‎ ٠ ولي د‎ эмеш + ғ 0. νο . 


SRU 1.902 ЦМТ, 


RUN COMPLETE. 
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9 


1278 


$ 


Program Listing 
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30 
'40 
50 
60 
70 
80. 
90 
100 
110 
120 
130 
140. 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 


REM HIORHYTHM PROGRAM 


MS2"DAY"! 

DIM A$(31) 

DIM м$ (12) 
M$(1)s'"JANUARY" 
M$(2)2"FERUARY! 
M$ (3) απ MARCH" 

M$ (4)2" APRIL" 

M$ (5)2"MAY" 
M$(6)2" JUNE" 
M$(7)s'!JUL Y" 

M$ (8) s"AUGUST" 
M$(9)2"SEPTEMBER" 
M$ (10) = "ОСТОВЕВ" 
МФ (11) z'NOVEMBEK! 
M$ (12) = "ОЕСЕМВЕКН 
Р9св.283185 

Pls23 

Р2ж2ы 

P3233 

01=Р9/Р] 

D2=P9/P2 

D3s=P9/P3 

DATA 31»28%31»30 


260 DATA 31930931 931 


270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
‚420 
' 30 
TANIE 
1450 
i460 
1470 
480 
490 
500. 
510 
520 
530 
540 
550 


DATA 302031930931 

PRINTU"ENTER YOUR МАМЕ"? 

INPUT NŠ 

PRINTU"ENTER EITHER M FOR MONTH OR" 
PRINT'"Y FOR YEAR, FOR YOUR PLOT" 
INPUT X$ 

Міз0 

PRINT"ENTER YOUR BIRTH DATE" 
ΡΗΙΝΤΙΜΟΝΤΗΛΩΑΥΑΥΕΑΝ = 1} 

INPUT В1 982,83 

IF 83<1900 THEN 1470 

IF Візге THEN 420 

IF Віс2 ANO B2229 THEN 420 

Қ INT ( (83-1900) /4) <> (83-1900) 74 ТНЕМ 
Мізі 

PRINT"ENTER STARTING MONTH AND УЕАКИ} 
INPUT C1sC3 | 

YF B3>=C3 THEN 1500 

FOR Js] TO Bl 

READ X 

NEXT J 

Nlz=N1*X=B2 

IF Бізі2 THEN 540 

FOR. JeB1*] TO 12 

READ X 

N1zxN1*X 

NEXT J 

REM MORE CALCULATIONS 

IF C3=83<2 THEN 620 


560 FOR .J283«1899 TO C3=1901 
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570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 


1900 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
tHo 


1130 


1140. 


1150 


80 


IF INT(U/4) 20/4 THEN 
GOTO 600 

Nl=N]¢] 

М] =М] 365 

NEXT J 

RESTORE 

IF С1=1 THEN 680 
FOR J=] TO Cle] 
READ X 

ΝΙΞΝΙΦΧ 

NEXT J 


590 


IF ІМТ((С3-1900)/4)<>(С3/4) THEN 


IF Ci»2 THEN 710 
GOTC 720 

N1=N1*1 

I1=N1 

Ідткі 

[3=N 1 

ЕАО X 

FUR j=} In 5 

PRINT 

NEXT J 


PRINI"BIORYTHM CHART FOR "1N$ 


PRINT"BIRTHDATE '438241M$(8]) 3" 113 


PRINT 


PRINTH@=COGNITIVE OR INTELLECT" 


PHINT'"«zPRHYSICAL STATE! 
PRINT'SzSENSITIVITY OR EMOTIONAL" 


FOR ysl Tn 5 
PRINT 

NEXT J 

L=0 

GUSUB 1330 
D=0 

L=L+*1 

FOR 15] TO 31 
Х$(Ј) аи н 
МЕХТ 1 

Х (16) =" 


Yl=INT(15%SIN((L+11)%D1)+*16,5) 
Y2=INT(1S#SIN((L+*I12)%D2)+16,5) 
УЗ=1мТ (15%51м№ ( (L +13) *03)*16,5) 


X*(Y1])=u+u 


АФ (Үг) =н 

ХФ (ҮЗ) antn 

IF Y1=Y2 ТНЕМ 1040 
GOTO 1050 

Х$ (Ү]) atten 

IF YizY3 THEN 1070 
GOTO 1080 

Х$ (Ү]) нян 

IF Y2zY3 THEN 1100 
GOTO 1110 

Х$ (УЗ) stan 

0=0+ | 

ТЕ D<X+1 THEN 1240. 
815191 

IF 5із12 THEN 1530 
ClzCle*] 


720 


1160 IF C1>12 THEN 1200 

1170 READ X 

1180 GOSUB 1330 

1190 GOTO 1240 

1200 RESTORE 

1210 Ciz 

1220 C3sC3*1 

1230 GOTO 1170 

1240 IF 0»9 THEN 1270 

1250 PRINT M$S(C1) "308" "3TAB(9)3 
1260 GOTO 01280 

1270 PRINT MS(C1)3" "301TAB(9) 1 

1280 FOR Js] TO 31 

1290 PRINT X$(J)1 

1300 NEXT J 

1310 PHINT 

1320-6010  .910 

1330 REM PRINT MONTH 

1340 IF Х9г1 THEN «1530 

1350 IF Xs$a'M" THEN 1370 

1360 GOTO 1380 

1370 Х9з1 

1380 FOR Ό5ἱ 10 5 

1390 PRINI 

1800 NEXT J 

1410 PRINI"RIORYTHM CHART FOR "1M$(C])j" "СЗ 
1420 PRINT ТАВ (5) № 

1430 PRINT ТАВ (10) 3" (=) "ТАВ (34) "(+)" 
1440 PRINT 

1450 021 

1460 RETURN 

1470 PRINT 

1480 PRINT"YEAR MUST ВЕ 1900 ΟΚ LATER" 
1490 GOTO : 340 

1500 PRINT 

1510 PRINI"STARTING YEAR MUST BE GREATER THAN BIRTH YEAR" 
1520 GOTO 420 

1530 REM NOw МЕ STOP 

1540 END 


An adaptation of this program designed specifically for the 
Radio Shack TRS-80 computer using Level II BASIC can be found on 
page 206 in Section П. 
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GUESS 


The friendly computer picks a number at random and you must 
guess 1t. If you are too low or too high, it will tell you with the 


appropriate message. At the end, it will tell you how many tries you 
took. 


The best way is to guess quickly by using the binary search 
method shown in Fig. 1-4. Basically, you pick a point halfway be- 
tween the last known too high point and too low point. 


SELECT RANDOM 
NUMBER 


INPUT GUESS 
<B> MESSAGE 


<> 
WIN MESSAGE 
N 


GOODBYE MESSAGE 


Flowchart for Guess 
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100 


GUESS 1 


- GUESS 3 
RANDOM 
NUMBER 
GUESS 4 


GUESS 2 


ф 


Fig. 1-4—1. If guess 1 was too high, try halfway between it апа 0. 2. Since guess 
2 was too low, try halfway between guess 1 and guess 2. 3. Since guess 3 is too 
high, try halfway between it and guess 2. You are narrowing the range each time 
by 1⁄2 (binary) until you reach the desired number. 


Sample Run 
PROGRAM GUE SS 


ARE INSTRUCTIONS KEDUIREDCLDYESs: ӘшМ0) 
? 1 


AT КАМПОМ YOUR FRIENDLY COMPUTER WILL. 
CHOOSE A NUMBER BETWEEN 1 ANU 100 
YOU WILL TRY TO GUESS ΤΗΕ RANDOM NUMBER 


НІМТІІТНЕ BINARY SEARCH METHOD! | 
GOOU-LLCK 
GUESS 


WHAT IS YOUR GUESS? 50 

YOU АКЕ HIGH 

WHAT IS YOUR GUESS? 25 

YOU ARE HIGH 

WHAT IS YOUR GUESS? 12 

YOU ARE HIGH 

WHAT IS YOUR GUESS? & 

YOU GOT IT» RIGHT ON THE NOSE! 111 
YOU ONLY TOOR 4 TRIES 


WANT TO TRY AGAIN 
ТУРЕ ічҮЕ8 OR 2чМ0? 1 
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GUESS 


WHAT IS YOUR GUESS? 

%” 50 

TOL АКЕ HIGH 

WHAT IS YOUR GUESS? 25 
YOU ARE LOW 

WHAT 1$ YOUR GUESS? 34 
YOU ARE LOW 

WHAT IS YOUR GUESS? 46 
YOU ARE HIGH 

WHAT IS YOUR GUESS? 34 
YOU ARE LOW 

WHAT IS YOUR GUESS? 39 
YOU GOT IT» RIGHT ON THE NOSE!!!! 
YOU ONLY TOOK 4 TRIES 


WANT TO TRY AGAIN 
ТУРЕ ічҮЕ6 OR 2=NO? 1 


GUESS 


WHAT IS YOUR GUESS? 

? 50 

YOU ARE LOW 

WHAT TS YOUR GUESS? 100 
YOU ARE HIGH 

WHAT IS YOUR GUESS? 75 
YOU ARE LOU 

WHAT IS YOUR GUESS? 82 
YOU ARE LOU 

WHAT IS YOUR GUESS? 96 
YOU ARE HIGH 

WHAT IS YOUR GUESS? 90 
YOU GOT IT» RIGHT ON THE NOSE! 111 
YOU ONLY TOOK 6 TRIES 


WANT TO TRY AGAIN 
ТУРЕ L=YES ОК @=NQ? 2 


+. ὃ # es 


RUN COMPLETE. 
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Prog 


10 
20 
30 
40 
50 
60 
70 
80 
90 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 


ram Listing 
REM THIS IS THE GAME OF GUESS 
REM INSTRUCTIONS 


PRINT"ARE INSTRUCTIONS REGUIREU"; 
PRINT'(1zYES» 2zNO)" 


INPUT A 

IF A«»1 THEN 00170 

PRINT 

PRINT'AT RANDOM YOUR FRIENDLY COMPUTER WILL" 


PRINT'CHOOSE A NUMBER BETWEEN 1 AND 100" 

PRINT"YOU WILL TRY TO GUESS THE RANDOM NUMBER" 

ΝΕ BINARY SEARCH METHOD! 1" 
IN 

PRINT" GOOD=LUCK! 

PRINT! wl 

PRINT 

PRINT 

PRINT! GUESS" 

PRINT! -----' 

Х=0 

QzINT(100*RND(0)) 

PRINT 

PRINT'WHAT IS YOUR GUESS"; 

INPUT Z 

XaXe] 

IF 250 THEN 300 

IF Z>Q THEN 330 

PRINT'YOU ARE LOW" 

GOTO e30 

PHINT'"YOU GOT IT» RIGHT ON THE МОЅЕ! 111" 


PRINT"YOU ONLY TOOK "3X3" TRIES" 
GOTO 350 

PHINT'YOU ARE HIGH" 

GOTO 230 

PRINT 

РК]МТНИАМТ TO TRY AGAIN" 


PRINT"TYPE 1=YES OR 2zNO''| 


INPUT V 

IF У<>1 THEN 410 

GOTO 170 

PRINT'ISCARED HUH111111"! 
END 


This program also will run on the Radio Shack TRS-80 compu- 
ter with no modifications needed. 
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GUESS AGAIN 


To win this game you must guess a random fraction, not a 
decimal number but a common fraction. The fraction, which is picked 
at random, is less than 1 and is in the following form: x/y where x is 
an integer from 2 to 9 and x « y. 


ών 


Flowchart for Guess Again 
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Sample Кип 


RUN 

THE COMPUTER IS GOING TO 

CHOOSE A FRACTION FROM D 

TO 1 

THE FRACTION 50 CHOSEN UILL 

BE IN THE FOLLOWING FORM 

Х/Үз WHERE X IS AN INTEGER 

FROM ο’ TO Я AND IS ALSO 

LESS THAN Y 

EXAMPLES: 

1/94 3/84 Ч/Я- ОК 1/4 

TO REMIND YOU AGAIN, ΤΗΕ 

THE FRACTION COULD DEFINITELY NOT BE 
ONE OF THE FOLLOUING OR ANY FRACTION 
LIKE THE FOLLOUING 

u/104 3/21- U/34 OR 2/2 

REMEMBER YOUR GUESS FRACTION MUST BE 
BETUEEN D AND 1 

PLEASE ENTER YOUR GUESS AS A 

DIGIT THEN A SLASH THEN THE DENOMIN- 
АТОК DIGIT 

THE COMPUTER HAS PICKED THE FRACTION 
GOOD LUCK... 

UHAT IS YOUR GUESS 

? 2/3 

YOU SHOULD TRY А LARGER VALUED 
FRACTION 

UHAT IS YOUR GUESS 

? S/b 


THAT'S SUPER- YOU MUST ВЕ А 
MATHEMATICIAN 

IF YOU WANT TO TRY AGAIN, TYPE 1 
OTHERUISE TYPE 2 

fog 

GOOD/BYE MATHEMATICIAN 

RUN COMPLETE 


Program Listing 


10 REM THE COMPUTER IS TO PICK A 
FRACTION 
CO КЕМ AT RANDOM, YOU ARE GOING 
30 REM TO HAVE TO GUESS IT 
uD PRINT 
50 PRINT 
bO REM THE RULES OF THE GAME 
70 PRINT 
80 PRINT ''THE COMPUTER IS GOING TO'' 
80 PRINT ''CHOOSE A FRACTION FROM O°! 
1001 PRINT "70.14" 
110 PRINT ''THE FRACTION SO CHOSEN 
UILL'' 
120 PRINT ''BE IN THE FOLLOWING FORM'' 
130 PRINT ''X/Y4 WHERE X IS AN INTEG- 
ЕК"" 
140 PRINT ''FROM с TO Я AND IS ALSO'' 
15П PRINT ''LESS THAN Y'' 
ЪЬО PRINT ''EXAMPLES:'' 
170 PRINT ''1/H4 3/84 ЧИЯ. OR 1/u'' 


18D PRINT ΤΟ REMIND YOU AGAIN; THE”? 


88 


390 PRINT ''FRACTION COULD DEFINITELY 
NOT BE'' 

ƏDD PRINT ''ONE OF THE FOLLOUING OR 
ANY FRACTION'' 

240 PRINT ''LIKE THE FOLLOWING:'' 

220 PRINT " "9/20. 3/21. 0/4. OR 8/8)" 

230 PRINT 

240 PRINT ''REMEMBER YOUR GUESS FRAC- 
TION MUST BE'' 

250 PRINT ''BETUEEN D AND 1'' 

2ь0 PRINT ''PLEASE ENTER YOUR GUESS 
AS A'' 

270 PRINT ''DIGIT THEN А SLASH THEN 
THE DENOMINATOR'' 

280 PRINT ''DIGIT'' 

290 REM TIME TO PICK A FRACTION 


300 В = INT{RND{O} ж δ} + c 
310 A = INT{RND{O} ж {B - 121 + 1 
320 PRINT 


330 PRINT ''ТНЕ COMPUTER HAS PICKED 
THE FRACTION'' 

340 PRINT ''GOOD LUCK...'' 

350 PRINT 

3b0 PRINT ''UHAT IS YOUR GUESS'' 

370 INPUT 65 

380 L = LEN{Gs} 

390 IF L<> 3 THEN 350 


чоо D$ = SUBSTR(G$41411J 
u30 5% = SUBSTR£G$ 42417 
420 E$ = SUBSTR(G$4341) 


430 D 


ΝΑΙ {25 
u40 Е 


VAL {Ες 
450 IF 59 < —''/'' THEN 350 


ЧЬО IF D <1 0R E < 1 THEN 350 
470 IF D<>INT{D} OR E < ΙΝΤ{ΕΣ 


THEN 350 


480 REM NOTICE THAT 470 ALSO CHECKS 
FOR LESS THAN 

490 REM 1 LIKE LINE 4605 UE HAVE IN- 
CLUDED 

500 REM ВОТН- BECAUSE OF THE 
DIFFERENCES IN THE 

510 REM VERSIONS OF BASIC AVAILABLE 

520 IF D > E THEN 350 

530 С = А/В 

540 F = D/E 

550 IF C = Р THEN 590 

560 IF C > F THEN 710 

570 PRINT ''YOU SHOULD TRY A SMALLER 
VALUED NUMBER FRACTION'' 

580 GOTO 350 

580 PRINT 

b00 PRINT ''THAT'S ШРЕК, YOU MUST 
BE A 

Һ1П PRINT ''MATHEMATICIAN'' 

b30 PRINT ''IF YOU WANT TO TRY AGAIN4 
ТУРЕ 1'' 

ЬЧО PRINT ''OTHERUISE TYPE αι" 

Һ5П INPUT C 


bbÛ IF С = 1 THEN b90 


90 


Ь?0 
550 
b40 
700 
710 


720 
730 


PRINT ''G00D-BYE4 MATHEMATICIAN'' 
STOP 

PRINT 

GOTO 300 

PRINT ''YOU SHOULD TRY A LARGER 


VALUED FRACTION'' 
GOTO 350 


END 


This program will run on the Radio Shack TRS-80 computer 


with the following modification. Change "SUBSTR" to “MID$” in 
lines 400, 410, and 420. 
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РЕОТ YOUR 4 EQUATIONS 


This plotting program allows the user to plot functions by 
modifying lines 35 to 55. Q(1) to Q(4) are the four equations. If more 
equations are to be plotted, continue adding Q(n), but be sure to 
change line 15 to show the change in number of equations. 

This program is a sample; the equations already are given. 
Also, this program consists of an advanced plotting subroutine which 
may be used by itself in other programs. Note that the characters 
used for plotting may be changed as well. 

We also can change the width of the plot in inches by changing 
line 20. 

А flow chart has been given so the user can, if desired, use this 
plotting technique with other programs. 


PARAMETERS 
FOR SUBROUTINE 


SET UP 
Q1 AND Q3 


GOSUB 75 
INITIALIZE 
PLOT ROUTINE 
FOR X = 0 TO 36 


SET UP 
Q(1)...Q(4) 


GOSUB 100 


Flowchart for Plot Your 4 Equations Subroutine (1 of 2) 
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NEXT Q4 > 
FOR Q4 = 1 
TO Q1 


REDUCE Q'S 
BY 1 


FOR Q4 = 1 
TO Q1 


SCAN FOR 
VALUE SELECT & 
PRINT 


TFI E 
NEXT Q4 fro 86. 


Flowchart for Plot Your 4 Equations Subroutine ( 2 of 2) 
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Sample Вип 
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ΧΧΧ SAMPLE PROGRAM ЖЖЖ 


КЕННЕН 
+ < + + + 
+ > + + + 
+ ж + + + 
+ < + + + 
+ > + + + 
НЕН 
+ + < + + 
+ + > + + 
+ + + 
+ + < + + 
+ + > + + 
ыы 
+ + + < + 
+ + + > + 
+ + + x + 
+ + t < + 
+ + + > + 
ынны 
+ + + + 
+ + + + 
+ + + + 
+ + + + 
+ + + + 
нығынған 
+ + + + 
+ + + + 
+ + + + 
+ + + + 
+ + + + 
ЧЕН 
+ + + + 
+ + + + 
+ + + + 
+ + + + 
+ + + + 
ЧЕН 


Sample Program 


PCR = شے‎ i Pe В x aks ode «ἂν «Ὁ ` TP tlt. κἂν eie de ci 
مہ مہ کہ س مہ مچ مچ مچ مہ چ ج م م مج نے م مچ مچ بی بے مچ بب طط لے ب مج می ج نب کے‎ dee ب‎ we ب‎ τὸν م‎ ο ل‎ adn Yk ج ج ج ب ب‎ ade ھچ ج ج ج ب‎ 
wmm 7 тт 77 тт 7 7 


ER 1 - 1 > > > ; = ; +‏ 
ж - 3 - + + ; + ж +‏ + 
ji +‏ جي + + + f$ тж‏ + 
+ ;;- + 5 + -$$ > 
ج چ ج ج ج ج ج ο‏ ج ج ج چ ج چ ج ج ο‏ ج چ بب ج چ ج چ ج ج ب چ چ ج چ م ب چ ب ج چ چ ب چ eb beh татат‏ 
+ ; + ۾ + + + $ + H‏ + 


i 
* 
4: 
ФФ 
ED 
+ 
+ 
<o 
+ 
* 
+ 


ж - ж т = Е ж = ж >‏ 5 
ж - $ = T = { т ж т‏ = 
io? + + $ + y +‏ + 4 + 
т‏ ج ج ج ج چ ج چ ج ج ج چ چ ج ج ج ج ھچ ج ج چ ج چ ج چ چ چ ب ο‏ چ ب چ ب چ چ ب چاچ و πο‏ 
Te + < T : T о > οἱ за засаа зага T ?‏ 
g + + ++‏ * $ + = = 
φ - < H > ; T + eT‏ --- 
О . ^‏ .2 + 
м + + * + ж = > y‏ 
P . ^ . + . . ^‏ 
H + = , + H + + ;‏ 
ж‏ = = و + 5 = = ж‏ 
ج ج ج ج چ ج چ ج ج چ ج ج ج ج چ ج ج ج ج ج ج ج ج ج ج ج ج ج ج چ ج ج ج چ ج ج چ ج چ ب چ ب چ ب ج ج ате} тнт PEPE‏ 
T тттттЧч emm‏ ج م т ч ee ens‏ = = > 
D и ^ .‏ * 
ж = = t=} + + z‏ 
В А a‏ ¢ . ^ : . 
t = Е y + è т т ,‏ 
H = + z = ж + + ;‏ 
P 8 ΜΙ p 9.2‏ * .2 5 4 . 
Pg πι т + : 7 : Ξ =‏ 
i>‏ - + 3 = $ > > = 
LT‏ ج ج ج ج ج ج ب ب ج ب ب ج چ ج ج YY‏ چ ب چ ب ب ج ج ب ب ب م مب ب مب ھچ مله مله می م سه مله له م «ὅν‏ مل z. < ммм ola‏ 
ones Oe 7 > > = ттт 7 Tc Cub bri im TT айк s mm‏ ا ane‏ چ ج ج ي «ο.‏ 
n Ка А Р ET ^ .‏ * . " 
+ + > ) = : 7 $ - 3 + 


+ 
+ 
+ 
ФФ 
4 
+ 
jJ. 
“> 
F 
+ 
F 


H + = = - + =+ ; =‏ >+ 
ج ج چ ج ج ج ج ج ۾ ج ھچ ج ج ج چ چ ج چ چ ج ج ج چ ج چ ج ο‏ ج چ چ ο‏ ج و ποσο‏ 
Ф : ΕΝ ΜΝ ` a А D‏ . 
m фз т T т T ος Ж } €‏ 


+ z — 714 + > + $ + ж + 
+ 3 + : + + + 3 5 $ + 


3 А ИЕ 225 аа xs 5 И 
چا چ چ هي‎ нн нтте тт ج ج ب چ مب‎ тт ттт مو ج ج ج ج ج ج ج ج ج ج ج ج ج ج چ چ ج ج ج ج ب ج چ ج چ ج چ ج ج ھچ چ ج ج چ چ ج ج‎ 
T = Ξ z с : ° 
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Program Listing 


5 PRINT' ЖЖЖ SAMPLE PROGRAM ЖЖЖ" 
10 REM ASSIGN 01-М0 CURVES;Q2sMAX WIITH(IN INCHES) 
15 LET Q1 = 4 

20 LET 03 = 6 

25 GOSUB 75 

30 FOR X = 0 TO 36 

35 LET Q(1) = X/6 

40 LET Q(2) = (36-X)/6 

45 LET Y = SQR(9-((X/6)-3)72) 

50 LET Q(3) = 3-Y 

55 LET Q(4) = 34Y 


60 GOSUR 100 

65 NEXT X 

70 STOP 

75 REM ЖЖЖ ENTRY POINT TO INITIALIZE ΕΙ ΟΤΤΙΝΟ SUBROUTINE ЖЖЖ 
80 LET Q3 = 02Ж10 +1 

85 LET 06 = 0 

90 RETURN 

95 REM ЖЖЖ ENTRY POINT ТО PLOT ONE LINE ΧΧΧ 
100 РОК 94 = 1 TO Q1 

LOS LET 9494) = 0(042Ж1041.5 
110 NEXT (4 

115 LET 95 = 0 

120 FOR 94 = 1 

125 LET Q(Q4) = 

130 NEXT 4 

135 РОК 94 = 1 TO Qi 

140 ТЕ Q(Q4) < 

145 IF Q(Q4)% «333333334 THEN 
150 IF Q(Q4) = .666666667 THEN 
155 IF 0(04) <= 1 THEN 00225 
160 NEXT Q4 

165 IF (06/6-INT(Q6/6)) 

170 IF (Q5/10-INT(Q5/10))=0 THEN 
175 PRINT" "3 

180 LET 05 = @5+1 

185 IF Q5<Q3 THEN 

190 PRINT 

195 LET 06 = 96+1 

200 RETURN 

205 РАТМТ"<"; 

210 60 ТО 180 

215 РАТМТ"Ж"; 

220 GO ТО :180 

225 РКІМТ">"; 

230 GO TO 180 

235 РАТМТ"+"; 

240 60 ТО 180 


КЕМ ЖЖЖ END OF SUBROUTINE ЖЖЖ 


END 


This program is not recommended for use on a ТК5-80 compu- 
ter because of the length of time needed to plot a single line plus the 
graph does not fit on the video screen. 
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PLOT YOUR 10 EQUATIONS 


This plotting program will plot up to nine curves at once, which 
are entered at lines 110 to 150 in the form of Q(1) = function to 


Q(9) = function. 
(Q(n) = f(x)) 


We also can specify, once the functions are entered, which first 
n (up to nine) will be plotted. We supply the limits of the independent 


variable x and the limits of the range. 


INPUT PARAMETERS 
CALCULATE OFFSETS 
FOR SCALING 


PRINT SCALE HEADER 


PRINT SCALE HEADER 


Flowchart for Plot Your 10 Equations 
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Sample Вип 


ENTER NUMBER OF 
? 3 

ENTER THE LOWER 
? 10 

ENTER THE UFFER 
? 100 

ЕМТЕК INCREMENT 


? 5 


CURVES ТО ВЕ 


LIMIT OF THE 


LIMIT OF THE 


VALUE OF THE 


РІ.ОТТЕП 
IND VARIABLE 
INI! VARIABLE 


IND VARIABLE 


ENTER ΤΗΕ LOWER LIMIT OF THE RANGE 
т 10 
ENTER THE UFFER LIMIT OF THE RANGE 
? 100 
HORIZONTAL RANGE | 10 TO 100 IN INCREMENTS OF 1.8 
VERTICAL RANGE | 10 TO 100 IN INCREMENTS OF 5 
0,0 10.0 20.0 30.0 40.0 
ааа ана а ааа а она ааа beue es аны а ع‎ αν Be me ee مسا نی ت سی‎ F --------------------- t 
| J we =. م اس مس سے کہ سا س م می ییا سی ا‎ b——————————— ------------- سا ا ت ت م سا کا ن ست سا ن ا‎ | 
0.9 10.0 20.0 30.0 40,0 
ENTER NUMBER OF CURVES TO ВЕ FLOTTELD 


? 8 

ENTER THE LOUER 
? 3.25 

ENTER THE UFFER 
? 7.87 

ENTER INCREMENT 
? 4 


LIMIT OF THE 
LIMIT ОЕ THE 


VALUE OF THE 


IND VARIABLE 
INI! VARIABLE 


IND VARIABLE 


ENTER THE LOWER LIMIT OF THE RANGE 
? 23 
ENTER THE UFPER LIMIT OF THE RANGE 
? 34 
HORIZONTAL RANGE ; 23 TO 34 IN INCREMENTS OF  .22 
UERTICAL RANGE : 3,25 TO 7.87 ІМ INCREMENTS OF 4 
0,0 10.0 20,0 30.0 40.0 
1--.-.-....... | شت‎ — μαμα juk a es Шаров Pm a a ie ee سم نیس مسا سے‎ Pieces inea ы ашалық aco ναί ος ος 1 
ее کا ا ت‎ ο a ae mee oom maen mm 1am 1e mae mne ο”... | 
0.0 10.0 20,0 30.0 40.0 
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Program Listing 


FRINT'ENTER NUMBER OF CURVES ТО БЕ РІОТТЕП" 
ІМРОТ А 

FRINT'ENTER ΤΗΕ LOWER LIMIT OF THE IND VARIABLE” 
INFUT В 

FRINT'ENTER THE UPPER LIMIT OF THE INI VARIABLE" 
INFUT С 

РКІМТ"ЕМТЕК INCREMENT VALUE OF THE IND VARIABLE" 
INFUT р 

РКІМТ"ЕМТЕК ΤΗΕ LOWER LIMIT OF THE RANGE" 

INFUT E 

FRINT'ENTER THE UFFER LIMIT OF THE RANGE" 

INFUT F 

LET К=0 

LET LztF-E»?/90 

FRINT 3 HORIZONTAL RANGE + "Es" ΤΟ "Fs" IN 
INCREMENTS ΟΕ "L 

FRINT " VERTICAL RANGE + "By" TO "Ον" IN 
INCREMENTS OF "D 

РАТМТ 

GÜSUB 510 

GOSUE 520 

FOR X«B TO C STEP D 

LET П=0 


FOR I=1 TO ñ 

LET FCOIDZINTCCQID-ETL/2)2/L) 41 
LET R(I)=I 

NEXT I 

FOR Ізі TO А-1 

FOR J=I+1 TO A 

IF F(T1y<a=F0J3J) THEN 
LET R=FCT) 

LET F(I)j=F (J) 

LET F(.J)=R 

LET RsR(CI) 

LET R¢TI=RCJ) 

LET КС.) =К 

GOTO 179 

NEXT J 

NEXT I 

LET J=1 

FOR I-2 TO А 

IF FCOIOZ-F(CI-J) THEN 370 
LET PCIO-2bE76 

LET R¢T~J)=4E44 

LET .=.+1 


τω 
Το 
τη 
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5 GOTO ' 


3 GOSUR 


GOTO 00275 
LET ο] 
NEXT I 

LET K=K+1 


IF SXINTCON-120/5)-NK-1 THEN 


PRINT " ,"j 
GOTO 305 

PRINT " -'i 
FOR I-1 TO Α 


IF F(I)=2E7ó THEN 
IF (P(I1y-1)£&(S5S1-F(I))%ZO THEN 


LET l=F(1)-D-1 
IF ПеО THEN 53 
GOSUB 330 


Š 


IF КІ) =4Е44 THEN 


IF R(1)>1 THEN 
PRINT "1%; 


7 
Ld 


IF RCT) 
"3 


FRINT 
GOTO 
IF К(12>4 THEN 
FRINT "4"; 
GOTO 475 
IF R(1y>25 THEN 
PRINT "5%; 
GOTO 475 
IF R(I)>é THEN 
PRINT “6%; 
GOTO 475 
IF ΝΕΤ}»} THEN 
FRINT "7"; 
GOTO 475 
IF R(I)%>8 THEN 
PRINT '8'; 
479 
FRINT 939 
GOTO 479 
PRINT "X'$ 
LET D=F (I) 
NEXT I 


s FRINT 


NEXT X 

220 
GOSUR 310 
STOP 

РАТМТ" 0.0 
RETURN 


SSS 


‚460 


о σον TORT 


РАТМТ" 
КЕТУКМ 
LET Ved 


IF INT(2XL/(2^7U)2:-0 THEN 


LET V=V+i 
GOTO 3359 
FOR Т=1 TQ У-1 


IF LU2XINT(OD/2) THEN 


480 


т ә eme Jm ч e кеме мем eie aa m t i Pam ме ne өш aa өте м συ + ο жн M AM i * 


C 
C 


560 IF Т>і THEN 00575 
545 PRINT " "$ 

570 GOTO .640 

575 ТЕ Ts2 THEN 590 

580 FRINT " "j 

58“ GOTO 4640 

590 ТЕ ТУЗ THEN 605 

595 PRINT " "j 

600 GOTO 640 

605 IF Т>4 THEN 62 

610 PRINT " . 

615 GOTO 640 

620 ТЕ T»5 THEN 635 
ук" Гэ к 

648 ΒΗ 64ο 

635 PRINT " 

640 LET ISINT(IZ2) 
645 NEXT T 

650 RETURN 

655 END 


м» © 


This program is notrecommended for use with the Radio Shack 
TRS-80 computer because there may be a scrolling problem if the 


graph is more than 13 lines long. 
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POLAR GRAPHIC SUBROUTINE 


This program allows the user to plot a curve in a polar coordi- 
nate plot. The function to be plotted is entered at line 105 in the form 
of À = F(c). Up to 90 points may be plotted with an increment 
adjustment to minimize distortion of the generated curve. 


INPUT PARAMETERS 
CALCULATE SCALING 
PLOTTING 


| FOR LOOP 


Flowchart for Polar Graphic subroutine 
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Sample Кип 


00205 А = TAN{23*C} 


PROGRAM POLAR 


++++++ЖЖЖЖЖЖРОСАК COORDINATE РЕОТЖЖЖЖЖЖ++++++ 


ENTER VALUE OF ENDPOINTS (ABS) 
? 7 


X INCREMENT ‚233333 


Y INCREMENT = .388889 


© 3 3€ 3€ эе 3 3 3 3€ X MMH ЭЄ 


++ + + + + + + 
+ ++ + + ++ + 
+++ 
+++ 
ἘΚ 
ЖЖЖЖЖЖЖЖЖЖ ЖЖ GOO OSS ЖЖ kX 
+*+ 
+++ 
+++ 
+ ++ +X +++ + 
++ + + + 


< эе эж 3€ 3 3€ 3€ 3X X 3€ MH X* HH 
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00105 А = TANi2GXx*CI 


RUN 


PROGRAM FOLAR 


++++++ЖЖЖЖЖЖРОГАК COORDINATE РЕОТЖЖЖЖЖЖ++++++ 


ENTER VALUE OF ENDPOINTS (ABS) 
? 6 


‚2 


X INCREMENT 


Y INCREMENT = ‚333333 
* 
* 
* 
Ж 
Ж 
Ж 
x 
+ Ж + 
Ж 
+ x * 
* 
Ж 
+ x * 
* жо + 
+ ж 
+ ++ ++ + 
+ +*+ + 


+++ + +++ 
ΧΧΧΧΧΧΧΧΧΧΧΧΧΑΧΧΧΑΧΧΧΧΧΧΚΧΧΧΧΧΧΧΦΧΧΧΧΧΑΧΧΧΧΧΚΧΧΧΚΧΧΧΧΧΚΧΧΧΧΧΧΧ 


< ж 3€ 3€ 3 3€ 3€ MH 3€ 3 3 3€ MH * 
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00105 A=SIN(C) 
RUN 


PROGRAM FOLAR 


++++++ЖЖЖЖЖЖРОСАК COORDINATE РЕОТЖЖЖЖЖЖ++++++ 


ENTER VALUE OF ENDPOINTS (ABS) 
74 


X INCREMENT = ‚133533 
У ІМСКЕМЕМТ = .222222 


3€ 36 3€ 3€ 3€ 96 3€ 3€ 3€ 3€ 3€ 3€ ЭЄ ЭЄ 


+++++++ 
++ k ++ 
+ ж + 
++ XK ++ 
ЖЖЖЖЖЖЖЖЖЖЖ ЖЖ ЖЖ ЖЖ ЖЖ ЖЖ ЖЖ ЖЖ ЕХ ЖЖ ЖЖ ЖЖ ЖЖ ЖЖ ЖЖ ЖЖЖЖЖХ 


< ж 39€ 3€ эж 3€ 3€ 3€ 3€ MH эе HMM 3€ 3€ 36 3 ЭЄ 
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00105 A=TAN(C) 
RUN 


PROGRAM POLAR 


++++++ЖЖЖЖЖЖРОГАК COORDINATE FLOTKKKKKKE+4444 


ENTER VALUE OF ENDPOINTS (ABS) 
? 6 


X INCREMENT «2 


Y INCREMENT = .333333 


x 
+ 0X + 
* 
* 
* 
* 
+ £ + 
Ж 
Ж 
+ x + 
* 
+ * + 
+ жо 
+ ж 
BOX + 
BOX + 
++ ж ++ 
++ x ++ 
ΧΧΧΧΧΧΧΧΧΧΧΧΑΧΧΧΧΧΧΑΧΧΧΑΧΧΧΦΧΧΧΧΧΑΧΧΑΧΧΧΧΧΧΧΧΧΧΧΑΧΑΧΧΧΧΧΧΧΧΧΧΧ 
++ * ++ 
++ * ++ 
+ ж + 
+ x + 
ж + 
+ x + 
+ x + 
* 
+ *٭‎ + 
* 

* 
BOX + 
* 

* 

* 

Ж 
+ xx + 
x 
Y 
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Program Listing 


REM THIS PROGRAM GENERATES A POLAR PLOT 
КЕМ OF THE FUNCTION (EQUATION) PLACED ON LINE 105 
REM THE FUNCTION MUST BE WRITTEN AS A=FC(C) 


PRINT 


PRINT +4+4+4+44%XXKKPOLAR COORDINATE РЕОТЖЖЖЖЖЖ++++++" 


FRINT 

FRINT 

FRINT 

DIM Х(100),Ү(100) 
Z=90 

FRINT'ENTER VALUE 
INFUT Q 

FRINT 

FRINT'X INCREMENT 
FRINT 

PRINT'Y INCREMENT 
РКІМТ 

FOR 4-1 TO Z 
C2,06981317*J 


ОҒ ЕМПРОТМТ$ (ABS)" 


"59/30 


"59/18 


XCJ=INT CC CARCOS(C)/Q41)*30)04~.5) 
YCGJ)ZINTCCC-AXSINCCO/QT1)0X18)t. 2) 


NEXT J 

FOR J-1 TO Z 

FOR I=1 TO Z-J 
D-2X(CI) 

E=Y(I) 

IF EzzY(OIt1) THEN 
X(1)=X(I+1) 


5 Y(1)=Y(I+1) 


X(I+1)=L 

Y(I+1)=E 

NEXT I 

NEXT J 

К=1 

FOR κ-ο TO 7-1 

IF Y(K+1)>=0 THEN 
NEXT К 

FOR J=0 TO 36 


R=R+K 

K=0 

IF К>2 THEN 225 
IF Y(R)=J THEN 

IF J=18 THEN 2 
PRINT ТАВ(300%"% 
GOTO 470 

T=Z+1 

GOTO 410 


FOR F-R TO Z 


IF Y(FO-YCORO THEN 


кекті 
NEXT F 


IF K-i THEN 320 


FOR 151 TO К 
FOR Р=1 TO К-1 
D=X(R+F-1) 
E=X(R+F ) 


IF 0<=Е THEN 310 


Х‹К+Р-1)=Е 
Х‹К+Р)=П 
МЕХТ Р 
МЕХТ Т 


IF J=18 ТНЕМ 405 


170 


200 


270 
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325 Р=-1 

330 Т=0 

335 FOR 9-0 TO κ-1 

340 IF X(R+S)=P THEN 385 
345 P=X(R+S) 

350 IF F=30 THEN 270 
355 IF Р<20 THEN 375 
360 IF T=1 THEN 375 
365 PRINT TAB(3O)5"X*; 
370 Т=1 

375 IF Р>60 THEN 470 
ЗВО PRINT TAB(P) 23434 
385 NEXT S 

390 IF Теі THEN 470 
395 PRINT ТАВ(209%"Ж% 
400 GOTO 470 

405 Т=К 

410 FOR 1=0 TO 60 

415 IF X(K)<>I THEN 455 
420 PRINT'+"$ 

425 FOR S=T TO R+K-1 
430 IF X(S)sX(T) THEN 445 
435 Тб 

440 GOTO 460 

445 NEXT 8 

450 GOTO 460 

455 PRINT'x'; 

460 NEXT I 

465 FRINT'X* 

470 PRINT 

475 NEXT J 

480 PRINT TAB(30)$"Y" 
485 END 
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MATH WHIZ KID QUIZ 


The following program is termed a CAI (Computer Assisted 
Instruction) program. The most famous and possibly the best CAI 
system is called PLATO. Unfortunately, PLATO requires special 
equipment such as a full graphics terminal which typically uses a gas 
plasma display. Quite often the screen also will be touch sensitive. 
As you can see, the full PLATO set-up can be quite expensive. 

This program does not require the features of PLATO, but it 
does show how such systems respond. Not only does this program 
instruct with arithmetic problems, but it is also fun to play. 


INITIALIZE VARIABLES 

GENERATE 2 NUMBERS 

USE SUBROUTINE FOR 
PROBLEM FORMAT 


INPUT USER'S 
ANSWER 


REWARD 
MESSAGE 
AND 
UPDATE 


ERROR 
MESSAGE 
AND UPDATE 


ALL 
PROBLEMS 
FINISHED 


YES 


ENDING MESSAGE 


INPUT CONTINUE MESSAGE 


© Flowchart for Math Whiz Kid Quiz 
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әацле Kull 


RUN 


UE ARE GOING TO PRACTICE MULTIPLICA- 
TION 

UHAT TS YOUR NAME 

? KEN 

KEN. THERE ARE 10 PROBLEMS. 

THE COMPUTER UILL USE ONE OF TUO FORMS 
EITHER 

A X B = ? 

OR 


1. b X ü = ? еч 
YOU DID IT 
ο. û X Ə = 2 lb 


EXCELLENT 
3. ü X b = ? еч 


VERY 6000 
u. а 


X1 
28 


МОТ BAD 
5. 3 Xa = / ? b 


EXCELLENT 
b. 4 
X3 


? le 
NOT BAD 


7. û X û = ? bu 
HEY THATS ALRIGHT 


110 


— 


EXCELLENT 
9. 3 


? а 
VERY GOOD 
10. 8 

ха 

? bu 

EXCELLENT 
UE ARE NOU FINISHED 
THE COMPUTER HOPES YOU ENJOYED THIS 
WELL« КЕМ 
OF 10 PROBLEMS 100% 
WERE CORRECT 
AND 0% WERE INCORRECT 
TO TRY AGAIN TYPE la IF NOT 0 
20 


RUN COMPLETE 
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Program Listing 


1D 
20 
30 
un 
50 
ED 
70 
80 
90 
100 


110 
120 
130 
140 
150 
1Һ0 
170 
180 
130 
200 


210 


220 


230 
240 
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REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 


THIS PROGRAM DEMONSTRATES THE 
CLASS OF PROGRAMS TERMED CAI 
THIS EXAMPLE GENERATES RANDOM 
PROBLEMS OF MULTIPLICATION AND 
RETURNS REUARD AND PUNISHMENT 
REMARKS AT RANDOM. 

DEFINITION OF VARIABLES 

USERS ANSUER = A 

NUMBER ОҒ PROBLEMS = C 


THE NUMBERS TO BE MULTIPLIED 


= Dla De 


КЕМ 
КЕМ 


КЕМ 


THE TRUE АМЗШЕК = D3 

POINTER TO MESSAGE = M 

TOTAL NUMBER OF PROBLEMS = № 
10 

USERS МАМЕ = № 
РЕКСЕМТАСЕ RIGHT 


РЪ 
PERCENTAGE URONG 


Pe 
CORRECT ANSWERS = R 

WRONG ANSWERS = W 

USE RANDOMIZE 5ο EACH TIME 


PROGRAM IS USED UE UILL HAVE 


DIFFERENT RANDOM SEQUENCE 


GENERATED 


RANDOMIZE 


PRINT 


250 


гып 
280 
285 
290 
300 


310 
320 


330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
uun 
450 
ubD 
470 
чаб 
{30 
500 
51D 


PRINT ''UE ARE GOING TO PRACTICE 
MULTIPLICATION'' 

PRINT 

PRINT ''UHAT IS YOUR NAME'' 
INPUT № 

PRINT 

PRINT Né; ''4 THERE ARE "7% № 
! ' PROBLEMS. "' 

PRINT 

PRINT ''THE COMPUTER UILL USE ONE 
OF TUO FORMS"! 

PRINT 

PRINT ''EITHER'' 

PRINT '' A X B = ?'' 

PRINT ''ок'' 

PRINT ''A'' 

PRINT ''X B'' 

PRINT ''---'' 

PRINT '' #"' 

PRINT 

PRINT 

C=} 

R=0 

U = 0 

REM GENERATE RANDOM NUMBERS 


DL = INT{IRND{O} ж 10} 
ра = INT{IRND{O} ж 10} 
D3 = Di x De 


REM BY CHANGING THE STATEMENTS 
КЕМ 470 AND AND 480 WE CAN 
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520 
530 


840 
550 
560 
570 


540 
590 


5DD 


Ь10 


b20 
530 


ЬЧО 


Ь50 
2121! 
b70 
b80 
530 


700 
210 
720 
730 
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REM CHANGE THE NUMBER OF DIGITS 
КЕМ OR THE MAGNITUDE OF THE NUM- 
BERS 

КЕМ TO BE MULTIPLIED. 

REM BY CHANGING THE STATEMENTS: 
REM ESPECIALLY THE REMARKS AND THE 
REM NUMBERS FOR CONSTANTS4 UE CAN 
TAILOR 

REM A GAME OR PROGRAM TO OUR 

REM TASTES. OF COURSE A PROGRAM 
MAY BE 

REM RUN EXACTLY AS FOUND. BUT 
THERE IS 

REM FUN AND INSTRUCTION IN MODI- 
FYING 

REM PROGRAMS AS UELL. 

REM THE FOLLOUING SUBROUTINES 
GENERATE 

REM EITHER ONE OF THE TUO FORMS 
ОҒ PROBLEMS. 

ΟΝ ТМТ<е ж {ΠΝΡΓΠ}}} + 1 GOTO ΒΕΠ. Ьай 
GOSUB 1000 

GOTO 690 

GOSUB 1050 

REM WE HAVE RETURNED FROM THE 
SUBROUTINE 
REM WE NOW NEED AN ANSWER 

INPUT A 

REM WE NOW PRINT AT RANDOM 

REM A MESSAGE ABOUT 


740 
750 
760 
770 
780 
740 
800 
810 
820 
830 
aun 
850 
&b0 
870 
880 
890 
700 
310 
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930 


840 


450 
850 


180 


920 
980 


REM THE ANSUER. UE ALSO HAVE TO 


REM INCREMENT THE ANSUER COUNTER. 


IF A<>D3 THEN 790 

GOSUB 1130 

GOTO 800 

GOSUB 1310 

REM UPDATE THE VALUE OF С 
REM THE NUMBER OF PROBLEMS 
C= C€ + J 

IF C < = М THEN 560 

REM ШЕ UILL NOU CALCULATE 
REM THE PERCENTAGE OF RIGHT 


REM OR URONG ANSUERS 


PL = ІМТІ1ПП ж К/МЭ 
Ре = INT1100 ж ШИМ 
PRINT 


PRINT ''UE ARE NOU FINISHED'' 
PRINT ''THE COMPUTER HOPES YOU 
ENJOYED THIS.'' 

PRINT 

PRINT ''UELL4''3 № 

PRINT ''OF''*5 № ''PROBLEMS4''3 
pis ''7'' 

PRINT ''UERE СОККЕСТ."" 

PRINT "'AND''S Pet ''Z'' WERE 
INCORRECT. ' " 

PRINT ''TO TRY АСАТМ- TYPE La IF 
NOT, O°! 

INPUT L 

IF L = 1 THEN 140 
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990 STOP 

1000 REM THIS SUBROUTINE PRINTS 

1010 REM A HORIZONTAL PROBLEM 

L020 PRINT 

1030 PRINT Cs ''. беру tr χεις 
Day '"'a''a 

1040 RETURN 

1050 REM THIS SUBROUTINE PRINTS 

Ъ0Б0 REM A VERTICAL PROBLEM 

10?0 PRINT 

1080 PRINT Ci''.''s ТАВ{7}% Dl 

1090 PRINT TAB(bIs ''X ''s Dg 

1100 PRINT ТАВ? ''---'' 

1110 PRINT ТАБЫН 


1100 RETURN 

1130 КЕМ THIS SUBROUTINE HANDLES 

1140 REM RESPONSES TO CORRECT ANSUERS 

1150 М = ІМТ<Ь κ RND{(O}} + 1 

1180 ON M GOTO 11705, 1190, 1210- 1230; 
1250, 1270 

1170 PRINT ''NOT BAD'' 

1140 GOTO 1280 

190 PRINT ''HEY4 THAT'S ALRIGHT.'" 

1200 GOTO 1240 

1210 PRINT ''YOU DID IT'' 

1220 GOTO 1580 

1230 PRINT ''THAT'S CORRECT'' 

1040 GOTO 1580 

1250 PRINT ''EXCELLENT'' 

lebO GOTO 1280 
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1270 
‚ваб 
ı210 
4300 
1310 


1320 
1330 
1340 


1350 
1350 
1370 
1380 


1340 
1400 


L410 
L420 
1430 


L440 
1450 
1480 
1470 


PRINT ''VERY 6000!" 

PRINT 

R = R =+ 1 

RETURN 

REM THIS SUBROUTINE HANDLES 
INCORRECT 

REM ANSUERS AND RESPONDS 

М = INT£U ж RND{OF} + 1 

ON М GOTO 1350- 1370- 1330; 
1410 

PRINT ''SORRY4 THAT'S WRONG'' 
GOTO 1420 

PRINT ''HOU COULD YOU?'' 
GOTO 115 


PRINT ''THAT'S NOT RIGHT'"' 
GOTO 1420 


PRINT ''CAN'T YOU MULTIPLY?'' 
PRINT 
PRINT ''THE CORRECT ANSUER IS 


PRINT 

uU = Ш =+ 1 
RETURN 

END 


ter with no modifications needed. 


This program also will run on the Radio Shack TRS-80 compu- 
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SHIP IN THE WATER 


This program allows the user to Input the parameters of a hull 
and water conditions. The program returns the ampular and vertical 
displacements, as well as plotting the displacements separately. 

As we are interested in only the horizontal position of the center 
of gravity, and not the vertical, we can place it as the intersection of 
water line and lateral division of hull. 

The more sections we divide the hull into, the more precise will 
be the results as numerical integration is used, which depends on the 
number of entries for precision. 


HEADER 


INPUT PARAMETER 


GET WATER CONDITIONS 


GET WIND CONDITION 


Flowchart for Ship in the Water 
USE LOOK UP 


TABLE 


PRINT RESULTS 


GRAPH ANGULAR 
POSITION 


GRAPH VERTICAL 
POSITION 
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LATERAL DIVISION 
a OF HULL 


SHIP’S HULL 


ЖЕУ 


WATER LINE 
AT EQUILIBRIUM 


Fig. 1-5—The more sections the hull is divided into, the more precise the result. 


Sample Run 


а өне өлен ο ο Фама riep жеме әтек ου αων 


MODELING OF ΤΗΕ MOTION OF A HULL 
UNDER DIFFERENT SEA CONDITIONS 


Lol 


KX HULLS АКЕ ASSUMED ТО ВЕ LATERALLY SYMETRICAL жж 
kk THEREFORE ONLY ENTER THE INFORMATION FOR THE xx 
жж RIGHT SECTIONS: THE LEFT WILL ВЕ MIRRORED жж 
ENTER Ж ОҒ SECTIONS ? Š 

ENTER BEAM IN METERS? 30 

ENTER Ys THE LENGTH OF THE SECTION BELOW 

THE WATER LINE АТ EQUILIBRIUM 

X 18 THE DISTANCE FROM THE 

CENTER üF GRAUITY QF THE HULL TQ 

THE CENTER ОҒ EACH SECTION 


SECTION d 1 Ха 1.9 
Үш? 12 


SECTION 4 2 X= Ανα 


Y=? 12 


SECTION 4 3 Χα 7.5 
үзе 11 


SECTION + 5 Χα 13.5 
Үз? 9.5 
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ENTER DENSITY ОҒ HULL 
? 1.098 


ТУРЕ OF WATER BODIES AVAILABLE 
SMALL LANES ANI RIUERS (1) 
LARGE LANES (2) 
SMALL BAYS ANI COVES (3) 
LARGE BAYS (4) 
OFEN OCEAN (5) 


ТҮРЕ? 2 


WIND SPEEDS AVAILABLE 

2M/SEC (7. 2KM/HR) (1) 
SM/SEC (18КМ/НК) (2) 
10M/SEC «ЗӘКМ/НЕ) (3) 
20M/SEC (?2КМ/НК» (4) 


WINK SPEED? 3 


ENTER TIME INTERVAL (ӨТЕР SIZE) 
? аб 


ENTER TOTAL TIME IN SECONDS P 1 


ТЕМЕ VERTICAL POSITION 
ESEC?) (METERS) 


өй GIRY 
і <1.73434 
1.5 2 4H34 
ad 2.286513 
2.3 cd. 933 
3 "1.2659? 
3, 2.486623E-2 
3 1. 32621 
4.2 2.33268 
Š 2.0537 
Wa 2.01958 
ó 1.815241 
$. 3721803 
2 cO 023047 
2.3 -2.04294 
8 К] 
ge vd. 0427 
3 "222631 
9.9 le 19069 
10 .2827367 
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Q 


ANGULAR POSITION 
(ΠΕΟΚΕΕΘ) 


ο sawa mops are sene semt emme riet ο seep soad ΡΞ. 


4.89791E-8 
359.963 
359.915 
S.24589E-2 
250372 
359,917 
359,397 
‚132877 
359.792 
357.06 
(297036 
6.31512 
359.708 
346.488 
359.431 
28,8404 
8.39775 
204,882 
296.189 


ANGULAR POSITION PLOTTED AGAINST TIME 


μας saso wave эло сом озна couv site ыы s.s. Sooo Shah sooo төзе meie onpi вва өзөт pam oror seme poea coos oore sons sasa seou ceee Ма apma anmo sess ота oree 9449 coce eart 


FOR X; ТОР = >» BOTTOM = 10 INCREMENT =  .3 
FOR Y: LEFT = 0 RIGHT = 360 INCREMENT = 6 


Ел 


ουσ eo loeo eoseoelesoececeekeeeeeceereleseoeeseel 
meee > 
+ + 
+ + 


+ 
+ + 


> * k * ж” т 
+ 


VERTICAL POSITION FLOTTED AGAINST TIME 


ET тәу «м еее sere wass > es kras spaa bent pepa evre Arte agat bewe rara موم‎ prat rava nett mees rera tame a 


H ТОР = 5 BOTTOM = 10 INCREMENT = κ 
š LEFT = maa RIGHT = 25 INCREMENT = .833333 


аа То ο Риза так РЕ ο... 
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Program Listing 


100 

200 

300 

400 

500 

600 

700 

800 

900 
1000 
1100 
1200 
1300 
1400 
1500 
1600 
1700 
1800 
1900 
2000 
2100 
2200 
2300 
2400 
2500 
2600 
2700 
2800 
2900 
3000 
3100 
3200 
3300 
3600 
3500 
3600 
3700 
3800 
3900 
4000 
4100 
4200 
4300 
4400 
4500 
4600 
4700 
4800 
4900 
5000 
5100 
5200 
5300 
5400 
5500 
5600 


5700 
5800 
5900 
6000 
6100 
6200 
6300 
6400 
6500 
6600 
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МЕМ 

PRINT 

PRINT 

PRINT 

PRIN] 

PRINT 

РНКІМІ"-ее-е-----.---------..-.ы.--...-...! 
PRINT"MODELING OF THE MOTION OF A HULL" 

PRINI"UNDER DIFFERENT SEA CONDITIONS" 

PRIN | НН же „чеш = оз аю өө тө ч «ө ар а єз єз o ш u чө б» ар ч ПН 

КЕМ MODEL NEGLECTS VISCOUS DAMPING ACTION 

REM OF THF wATER, THUS IF THE НЕЗОМАМТ FREQUENCY AND 
REM AND THE PERIOD COINCIDE, THE HULL wILL APPEAR TO 
REM JUMP OUT OF THE WATER, 

DIM A(50),Y(50) 

DIM Е4 (250) 

OIM ЕЗ (250) 

OIM E} (250) 

DIM в (50) 

Е2=0 


REM MODELING OF А SHIP'S FULL 

НЕМ INPUT HULL CROSS SECTION 

REM INPUT X AND Y 

НЕМ A DISTANCE FROM CENTER OF GRAVITY TO 

REM CENTER OF SECTION 

PET | LENGTH OF SECTION BELOW WATER АТ EQUILIBRIUM 
MIN 

PRIN] 

PRINT 

PRINT"## HULLS ARE ASSUMED TO BE LATERALLY SYMETRICAL Фен! 
PRINT"## THEREFORE ONLY ENTER THE INFORMATION FOR THE 94" 
DI шыш RIGHT SECTIONS, THE LEFT wILL BE MIRRORED 8581 
KIN Î 

PRINTPENTER # OF SECTIONS" | 

INPLI S 

REM CHECK МОТ TO EXCEED А (50) 

IF S«1 OR S»50 THEN 4100 

GOTO 04300 

PRMINI"NUMRER ОЕ SECTIONS MUST ВЕ BETWEEN 1 AND 50" 
GOTO 03600 

PRINT 

REM INPUT ВЕАМ AND COMPUTE DISTANCE OF EACH SECTION 
PRINTNENTER BEAM IN МЕТЕ КС! 

INPUT 83 

IF B3<s0 THEN 4900 

GOTO 5100 

PRINT "BEAM MLST НЕ СКЕАТЕК THAN ZERO" 

GOTC 04500 

REM FIND HALF REAM 

R3=B 3/2 

REM FINO WIUTH OF EACH SECTION (COMMON) 

R3zB3⁄S 

REM FIND CENTER OF EACH SECTION 

REM wITH RESPECT TO CENTER OF GRAVITY 


FOR Ја] To 5 

XtJ)sJ*B3- (8342) 

NEXT J 

PRINT 

PRINT"ENTER Yo THE LENGTH OF THE SECTION BELOW" 
ΡΗΙΝΤΗΙΤΗΕ WATER LINE AT EGUILIBRIUM" 

ΡΗΙΝΤΗΧ IS THE DISTANCE FROM THE" 

PRINT"CENTER OF GRAVITY OF THE HULL TO" 
ΡΗΙΝΤΗΤΗΕ CENTER OF EACH SECTION! 

PRINT 


FOR Ja] TO S 

PRINT"SECTION ӘҢ" KEM 43X(J) 
РА]МТнуазну 

INPUT Ү 00) 

PRINT 

NEXT J 

PRINT 

PRINTU"ENTER DENSITY OF HULL" 

INPUT 61 

IF 5] «x0 THEN 7800 

GOTO 8000 

PRINT"DENSITY MUST BE GREATER THAN ZERO" 
GOTO 7400 

REM APPROXIMATE ROUYANCY FACTOR OF EACH SECTION 
B1=S1%9,8 

FOR us] TO 5 

R(J)sB3*Y(J) *b] 

NEXT J 

REM MASS & MOMENT OF INTERTA OF CROSS SECTION 
Μπο 

150 

FOR уж] TO S 

Ml=B(J)/9,8*Y(J) 


M=Mem] #2 

IsI*M1*X(J)92 

NEAT J 

REM INPUT SEA AND wIND CONDITIONS 
PRINI 

РК1МТИТУРЕ OF WATER BODIES AVAILABLE" 
РКІМІ"-------«----------------------! 
PRINI"SMALL LAKES AND RIVERS (1)" 
PRINT'LARGE LAKES (2) " 
PRKINTMSMALL BAYS AND COVES (3)" 
PRINTLARGE BAYS (4)н 
PRINT'OPE.; OCEAN (5)" 
PRINI 

PRINT''TYPE: 

INPUT S3 

S3zINT ($3) 

IF $3<1 OR 5325 THEN 10800 

GOTO 11000 

PRINIU"INPUT MAY RANGE FROM | TO 5 ONLY" 


GOTO 10300 
РКІМІ 
PRINI"wIND SPEEDS AVAILABLE" 


PRINT بے ا‎ ч» αν «τ чө ө» аю өк ег че өз ее ч» «с ар αν өз еге τω е» πω а» “Ө р ө аъ ар اأ س‎ 
PRINT'2M/SEC (7.2KM/HR) (1)" 
PRINIMSM/SEC (18KM/HR) (2)" 
PRINTH10M/SEC (36KM/HR) (3)" 
PRINT'20M/SEC (72KM/HR) (4) 
PRINT 

PRINT"WIND SPEEDS 

INPUT 54 

$4= [МТ (54) 


IF Sa<cl OR $4>4 THEN 12300 

GOTO 12500 

PRINT'INPUT MAY RANGE FROM 1 TO ὁ ONLY! 
GOTO 11800 

GOSUB 23600 

REM INITIALI2E INTEGRATION VARIABLES 
250 

21z0 

E TU 

м} =0 

ΑΞ0 

А120 

Rz 

RlzQ 

Q=0 

91=0 
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13700 
13800 
13900 
14000 
14100 
14200 
14300 
14400 
14500 
14600 
14700 
14800 
14900 
15000 
15100 
15200 
15300 
15400 
15500 
15600 
15700 
15800 
15900 
16000 
16100 
16200 
16300 
16400 
16500 
16600 
16700 
16800 


16900 
17000 
17100 
17200 
17300 
17400 
17500 
17600 
17700 
17800 
17900 
18000 
18100 
18200 
18300 
18400 
18500 
18600 
18700 
18800 
18900 
19000 
19100 
19200 
19300 
19400 
19500 
19600 
19700 
19800 
19900 
e0000 
20100 
20200 
20300 
20400 
20500 
20600 
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cap 

Сіз0 

T=0 

REM INITIALIZE STEP SIZE 

REM [INITIALIZE PRINT INTERVAL 

PRINT 

PRINI"ENTER TIME INTERVAL (STEP SIZE)" 

INPLT D 

ІР 0<0.1 THEN 14700 

GOTO 14300 

PRINT"TIME INTERVAL MUST ВЕ GREATER THAN 0.1 SECONDS" 
GOTO 14300 

К=0 

Kl=0,1⁄/D 

PRINT 

REM SET # OF SECONDS OF RUNNING TIME FOR MODEL 
РКІМІЗЕМТЕН TOTAL TIME IN SECONDS'"3 

INPLT SS 

SS=IiNT (S5) 

IF Ss<1 THEN 15900 

IF $5<0 THEN 16100 

GOTO 16500 

РАТМТИТОТАЕ TIME MUST ВЕ GREATER THAN 1 SEC" 

GOTO 15300 

PRINT"RUNNING TIME MUST ВЕ GREATER THAN TIME INTERVAL" 
PRINT"FOR ACCURATE RESULTS RUNNING TIME SHOULD ВЕ АТ" 
PRINI'"LEAST lu TIMES GREATER THAN ІНЕ TIME INTERVAL" 
GOTO 15300 


PRIN] 

PRINT 

PRINT 

PRINT" TIME VERTICAL POSITION ANGULAR POSITION" 
PRINT" (SEC) (METERS) R " 
N o не s 
REM SUM FORCES AND MOMENTS ON THE SECTIONS 


Е2зЕ2»1 

REM PREDICT VERTICAL MOTION 

REM A V 2 ARE ACCELERATION SPEEO AND POSITION 

АізҒ/Ме9.8 

Мем] ΟΡΑ] 

2421%0%У1 

REM PREDICT ANGULAR MOTION 

REM С Q R ARE ACCELERATION SPEED AND POSITION 

C1aG/I 

Qs=Q1*D*C1 

Rs=R1+D*#Q1 

$n iui NEW FORCES AND MOMENTS FOR CORRECTOR FORMULAE 
+ 

Тате) 

GOSUB 21200 

REM CORRECT VERTICAL MOTION 

AzF/Me9,8 

VzV1«0/2* (A*A1) 

222]*0/2* (+11) 

REM CORRECT ANGULAR MOTION 

CsG/I 

QsQ1*D/2* (C«C1) 

Как] .0/2% (Q*G1) 

REM PREPARE РОК NEXT ЅТЕР 

У] жу 

21х2 

@1=С 

RIER 

IF KeK] THEN 17200 

REM FIND TOTAL DEGREES ROTATION 

EsR#57.296 

REM FINO POSITION USING М00 360 

Ез360%( (Е/360) = (ІМТ(Е/360))) 

НЕМ 

Е4 (Е2) =2 


20700 ЕЗ (Её) =1 

20800 ЕІ (Её) =Е 

20900 PRINT T+2 EË 

21000 IF T<SS THEN 17200 

21100 GOTO 36200 

21200 REM CAL AND SUM FORCERS AND MOMENTS ON SECTIONS 
21300 ΕΞ0 

21400 6=0 

21500 FOR Jz1 TO $ 

21600 REM POS HALF OF HULL 

21700 REM w IS VERTICAL POSITION OF wATER SURFACE AT SECTION J 
21800 REM wl IS LENGTH OF HULL BELOW wATER SURFACE 
21900 w=H/2%SIN(6.28318%(T/P+X(J2)/L)) 

22000 wl=Y(—(J)=2-SIN(R)*X(J) +W 

22100 IF w1»0 THEN 22300 

22200 и1=0 

22300 Fl=B(J)#w] 

22400 Gl=X(J)*F1 

22500 REM MIRROR IMAGE GIVES NEG HALF 

22600 м=2Н/2%51№ (6.283189 (T/P»XCJ) 1.) ) 

22700 wlz=Y(J)=Z+SIN(R)#*X(J) +W 

22800 IF \1>0 THEN 23000 

22900 міз0 

23000 F2zB(J)*w1 

23100 Géz-X(J) *F? 

23200 ҒзҒ»Ғ1»Ғ2 

23300 6=6+61+62 

23400 NEXT J 

23500 RETURN 

23600 ON S3 GOTO 23700» 26200, 28700» 31200» 33700 
23700 ОМ 54 GOTO 23800» 29400» 25000» 25600 
23800 REM lel 

23900 КЕМ SMALL LAKES AND RIVERS АТ 2М/5ЕС 
24000 Р=0.6 

24100 (50.56 

24200 ғіз0.02 

24300 GOTO 36100 

24400 ВЕМ 1,2 

24500 REM SMALL LAKES AND RIVERS АТ 5М/5ЕС 
26600 Р=0.8 

24700 (20.1 

24800 H=0.05 

24900 GOTO 36100 

25000 REM 153 

25100 REM SMALL LAKES AND RIVERS АТ 10М/ЗЕС 
25200 Р=1.25 

25300 (22.% 

25500 GOTO 36100 

25600 REM 194 

25700 REM SMALL LAKES ANO RIVERS AT 20М/ЭЕС 
25800 Р=2.5 

25900 (ғ10.0 

26000 H30,25 

26100 GOTO 36100 

26200 ON $4 GOTO 26300» 26900» 27500» 28100 
26300 REM 2941 

26400 REM LARGE LAKES AT 2М/5ЕС 

26500 Р=]1.0 

26600 L*51.45 

26700 H*0.06 

26800 GUTO 36100 

26900 НЕМ 2,2 

27000 КЕМ LARGE LAKES АТ 5M/SEC 

27100 Pelee 

27200 L=2e25 

27300 Н=0.08 

27400 6070 36100 

27500 НЕМ 2,3 

27600 REM LARGE LAKES AT 10М/5ЕС 
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27700 
27800 
27900 
28000 


28100 
28200 
28300 
28400 
28500 
28600 
28700 
28800 
28900 
29000 
29100 
29200 
29300 
29400 
29500 
29600 
29700 
29800 
29900 
30000 
30100 
30200 
30300 
30400 
30500 
30600 
30700 
30800 
30900 
31000 
31100 
31200 
31300 
31400 
31500 
31600 
31700 
31800 
31900 
32000 
32100 
32200 
32300 
32400 
32500 
32600 
32700 
32800 
32900 
33000 
33100 
33200 
33300 
33400 
33500 
33600 


33700 
33800 
33900 
34000 
34100 
34200 
34300 
34400 
34500 
34600 
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Pze.U 
(6.25 
Hz0,15 
GOTO 36100 


REM διά 


REM LARGE LAKES AT 20M/SEC 


Р=4.0 

(2205,0 

Hz0,65 

GOTO 36100 

ON 54 GOTO 28800» 29400» 
МЕМ 35) 

НЕМ SMALL BAYS AND COVES 
ΡΞ}.5 

+ =2.3 

Н=0,12 

GOTO 36100 

REM 3.2 

REM SMALL BAYS AND COVES 
P=2.U 

L=5.0 

Н=0,2 

GOTO 36100 

REM 3,3 

REM SMALL BAYS AND COVES 
Р=3.0 

Lz14,0 

Hz0,.35 

GOTO 36100 

REM 304 

REM SMALL BAYS AND COVES 
Р=6.0 

1=56.0 

Н=].4ч 

GOTO 36100 

ОМ 5% GOTO 31300» 31900» 
KEM oe) 

REM LARGE BAYS AT 2M/SEC 
Р=2.0 

L=3,1 

H=0.15 

GOTO 36100 

REM 4,2 

REM LARGE BAYS AT 5М/5ЕС 
Pze.4 

(59.0 

Н=0.25 

00710 36100 

REM 453 


REM LARGE BAYS АТ 10M/SFC 


P=a, 25 
L=28,0 
Н=0./ 

GOTO 35100 
НЕМ 434 


КЕМ LARGF BAYS АТ 20M/SFC 


P2Bed 
L=110.0 
ΗΞδο8 

GOTO 36100 


30000» 30600 


AT 2M/SEC 


AT SM/SEC 


AT 10M/SEC 


AT 20M/SEC 


32500» 33100 


ON $4 GOTO 33800, 34400, 35000» 35600 


REM Sel 

REM ОРЕМ OCEAN AT 2M/SEC 
Ра3.5 

L=20.0 

Hz0,5 

GOTO 36100 

НЕМ 5,2 

REM OPEN OCEAN АТ 5М/5ЕС 
P34,’ 


34700 
34800 
34900 
35000 
35100 
35200 
35300 
35400 
35500 
35600 
35700 
35800 
35900 
36000 
36100 
36200 
36300 
36400 
36500 
36600 
36700 
36800 
36900 
37000 
37100 
37200 
37300 
37400 
37500 
37600 
37700 
37800 
37900 
38000 
38100 
38200 
38300 
38400 
38500 
38600 
38700 
38800 
38900 
39000 
39100 
39200 
39300 
39400 
39500 
39600 
39700 
39900 
40000 
40100 
40200 
40300 
40400 
40500 
40600 
40700 
40800 
40900 
41000 
41100 
41200 
41300 
41400 
41500 
41600 


Lz30,0 

Н=0, 75 

GOTO 36100 

КЕМ 5,3 

REM OPEN OCEAN АТ 10М/5ЕС 

Р=7.0 

L=80.0 

н=2,0 

GOTO 36100 

REM 5,4 

REM ОРЕМ OCEAN АТ 20M/SEC 
Р=14.0 

(2300.0 

Н27.9 

RETURN 

REM GRAFHICS KOUTINES 

REM FIRST PLOT ANGULAR POSITION 
Qu=0 

01-360 

Qezt3(1) 

Q3zE 3 (E2) 

Q4 =L 

PRINI 

PRIN Í 

PRINI"ANGULAR POSITION PLOTTEN AGAINST TIME" 
РКІКІ!"--е-------------.-..--...-.--.--..------..-.. 
PRINT 

GOSLs 39500 

REM NOW wF PLOT VERTICAL FOSITION 
09=-25 

01-25 

Q2=E3(1) 

03-Е 3 (Е2) 

9%=0 

FOR у=] То E? 

El(J)szEG6 (J) 

NEAT J 

PRINI 

РКІМІ 


PRINI'VERTICAL POSITION РЕОТТЕО AGAINST TIME" 


PRIN 1 کے ےا‎ κ < < sn < чы ч- s а» < < әш өш өм к < әм _ өм 45 г سے‎ ч0 «о өш чш өн ча эю чш эт а» Т! 


РКІМІ 
60508 39500 
STOP 


MEM ROUTINE FOR PLOITING (SUPPLIES THE Y VALUE 


Y=F 1 (N) 

RETURN 

REM PLOTTING SUBROUTINE 
№=0 

О5= (51-00) 60 

Q6=0 

FOR x = 42 TU 03 STEP 04 
N=Ne] 

605365 39200 

IF Q6 = 0 THEN 42800 

IF Q6 = 20 TREN 40600 
PRINT " , "$ 

GOTO 40800 

PRINT ἡ < "4 

Q6z1lu 

IF Y > ©] THEN 42500 

IF Y < GO THEN 42500 
07=С0+2%05 

2=07+0.5%05 

IF Z«Y THEN 42200 

06=С6 +] 

IF Z-Y»zs29Q5 THEN 42000 
IF ¿=Y>=QS THEN 41800 
PRINT и .. 
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41700 
41800 
41900 
42000 
42100 
42200 
42300 
42400 
42500 
42600 
42700 
42800 
42900 
43000 
43100 
43200 


n 


GOTO 43400 
PRINT " e" 
GOTO 43400 
PRINT Het 
GOTO 43400 
Q7267*3*Q5 
PRINT " 
GOTO 41100 
PRINT "OFF 
Q6zGo*l 
GOTO 43400 
PRINT 


PRINT "FOR 
РКІМІ "FOR 
PRINT 
PRINT 


43300 GOTO 40600 
43400 NEXT Х 
43500 RETURN 
43600 END 
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"462%" BOTTOM 


"4 
SCALE (XY) = 
А ТОР = 
Y LEFT = "τους 


ноди, 


RIGHT 


"$Y 


"зін 
нои 


INCREMENT = "304 
INCREMENT = "305 


lweavaesezelzawewsswelescwseneslesvosesvelesesecescelessecpseesit 


LEAP FROG 


The game of leap frog is an amusing way to learn the "look 
ahead logic." You must carefully think of advance moves if you are 
going to win in a reasonable number of moves. 

You indicate the start and end of each leap with a number from 1 
to 11. One (1) is the position to the immediate left, while 11 is the last 
position to the right. Figure 1-6 shows some sample moves. 


SET UP FROGS AND COUNTER 
OUTPUT HEADER 
INPUT MOVE 


<iteca > 


NO 


UPDATE DISPLAY 
UPDATE COUNTER 


YES 


OUTPUT MESSAGE 


YES 


Flowchart for Leap Frog 


CONTINUE 
NO 
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34 4 2 
— y 
G G GG G — BB B BB 


Fig. 1-6--Моуе 1 is allowed because the frog is landing in an empty space. Move 
2 is illegal because there is already a frog in the spot you will land in. Move 3 is 
also illegal because you may jump only over one frog at a time. Move 4 is 
permissible. You don't always have to jump over another frog. 


Sample Run 


RUN 

THE GAME OF LEAP FROG 

OUR GAME STARTS AS: 
GGGGGSBBBBB 

UE MUST END AS 

BBBBBSGGGGG 

Τὸ UIN. 

NOTE THE S IS THE EMPTY SPACE. 
WHAT IS YOUR MOVE {УТАКТ- END} 
? 8-6 

CURRENT PATTERN ОҒ FROGS IS 
BBBBBGGSGGG 

WHAT IS YOUR MOVE {START END} 
? 10-8 

CURRENT PATTERN OF FROGS IS 
BBBBBGGGGSG 

WHAT IS YOUR MOVE {START END} 
? 

CURRENT POSITION OF FROGS ТУ 
BBBBBSGGGGG 

YOU HAVE DONE IT, IN ONLY X MOVES 
DO YOU UANT TO TRY AGAIN? 
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ТУРЕ 1 TO CONTINUE. 5 TO STOP 


228 


RUN COMPLETE 


NOTE THE X IN THE LINE 


YOU HAVE DONE IT IN ONLY X MOVES 


IS THE AMOUNT OF MOVES YOU TOOK TO UIN. 


Program Listing 


10 
20 


30 
uÜ 
50 


bû 


70 
80 
90 


100 
120 
130 
140 
150 
bO 
170 
180 
140 


REM THIS IS THE GAME ОҒ LEAP FROG 
REM THERE ARE S GREEN FROGS LA- 
BELLED 

REM WITH G'S AND 5 BROUN FROGS 
REM LABELLED WITH B'S 

REM THERE IS A SINGLE SPACE LEFT 
OVER 

REM AND IT IS IN THE MIDDLE BE- 
TUEEN 

REM THE GREEN AND BROUN FROGS. 
REM TO UIN UE MUST MOVE ALL THE 
REM GREEN FROGS TO THE RIGHT AND 
ALL 

REM THE BROUN FROGS TO THE LEFT 
REM SET UP DIM FOR FROGS. 

DIM AS{l2} 

REM SET UP COUNTER 


С = 0 

AS{1} = ''G'' 
A$fe} = ''G'" 
A$13) = ''G'' 
АЧ = ''б'' 
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cuu 
с10 
220 
230 
240 
250 
1-14 
270 


ean 
290 


300 
310 
зап 
330 
3uD 
35D 
-ЗЬ0 
370 


360 
385 


390 
400 


410 
uen 
44g 


450 


ub 
чаб 
440 
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Азізі = "το 
Ав+Ь} = ''S'' 
As{?} = ''B'' 
AS(8) = ''B'' 
A${9} = ''В'' 


As{10} = 


I 

- 
o 

< 


А5411} = ''B'' 
PRINT 


PRINT ''THE GAME OF LEAP FRO0G'' 
PRINT ''--------------------- ef 


PRINT 

PRINT 

PRINT ''OUR GAME STARTS OFF А5: '" 
PRINT 

PRINT ''GGGGGSBBBBB'' 

PRINT 

PRINT ""ШЕ MUST END AS'' 

PRINT ''BBBBBSGGGGG'' 


PRINT ''TO UIN.'' 
PRINT ''NOTE THAT S IS THE 
EMPTY SPACE.'' 


PRINT 


PRINT ''UHAT IS YOUR MOVE {START. 
ENDI'' 


INPUT 54 E 
IF ABS{S - E> 28 THEN 450 
GOTO чаб 


PRINT ''SORRY4 YOUR LEAP IS ТОО 
LARGE'' 


GOTO 390 

IF ASKS) = ''S'' THEN 510 

ТЕ ΑΦ{ΕΣ = ''G'' OR AS{E} = ''B'' 
THEN 550 


500 
510 


520 


530 
540 
550 


560 


570 
580 
590 
£00 
511 
ban 
b30 
ЬЧО 
Ь50 
21511 
h?D 


580 
b10 
700 
710 
220 
230 


GOTO 590 

PRINT ''НЕУ- YOU A CANNOT START 
YOUR LEAP'' 

PRINT ''UITHOUT A FROG- YOU HAVE 
GIVEN THE'' 

PRINT ''LOCATION OF THE SPACE.'' 
GOTO 390 

PRINT ''HEY4 YOU CANNOT END YOUR 
LEAP'' 

PRINT ''UITHOUT A ЗРАСЕ- YOU HAVE 


GIVEN ТНЕ"" 

PRINT ''LOCATION OF А FROG'' 
GOTO 350 

Bs = A${S} 

AS{S} = ''$'' 

AS{E} = B$ 

D$ = AS{l} 

FOR I = 2 TO 11 

DS = DS + АІ 

NEXT I 

PRINT 

PRINT ''CURRENT PATTERN OF FROGS 
Tse | 

PRINT Ds 

CECE 

IF D$ = ''BBBBBSGGGGG'' THEN 720 
GOTO 390 

PRINT 

PRINT ''YOU HAVE DONE ІТ. IN ONLY 


Vra Cs "MOVES! 
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740 
750 


ФО 


270 
780 
790 
800 
810 
820 


PRINT 

PRINT ''DO YOU WANT TO TRY 
AGAIN?'' 

PRINT ''TYPE 1 Τὸ CONTINUE. 2 TO 
STOP! 

INPUT C 

ТЕ C = Ъ THEN 800 

STOP 

PRINT 

GOTO 150 

END 


An adaptation of this program designed specifically for the 


Radio Shack TRS-80 computer using Level II BASIC can be found on 
page 209 in Section II. 
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COMPUTERIZED HANGMAN 


This amusing algorithm is designed to test your ability to guess 
words. The computer will choose at random from a list of words. In 
this program, the DATA statements have been written with one 
word per line, so that the game player may easily change the words. 

You guess at a letter in the word. The computer then responds 
with the number of times that letter appears in the word, if at all. 

After a number of unsuccessful tries, you may be hanged by the 
computer. Good luck. 


Flowchart for Computerized Hangman 


HEADER. 
CHOOSE WORD 
ASK FOR LETTER 


NO 


DISPLAY NUMBER 
OF OCCURRENCES 
INPUT GUESS 


YES 


HANGMAN 
MESSAGE 
FLAG = FLAG + 1 


NO 


WIN 
MESSAGE 


| 


YES 


4135 


Затр!е Кип 


RUN 

THE COMPUTER HAS PICKED AT 
RANDOM А UORD 

CONTAINING 11 CHARACTERS 

TIME TO 5ТАКТ- BE CAREFUL. YOU 
DON'T UANT TO BE HUNG FROM 

THE GALLOUS 

UHAT LETTER 

25 

THE LETTER S OCCURS 4 TIMES 
UHAT DO YOU THINK THE UORD IS 
? MISSISSIPPI 

WOW. YOU GUESSED IT 

YOU MUST KNOW THE LEXICON FRONT 
TO BACK 

WANT TO TRY AGAIN 

ТУРЕ 1 ΤΟ GO AGAIN, 2 TO STOP 
? 2 

CHICKEN 

RUN COMPLETE 

RUN 

THE COMPUTER HAS PICKED AT 
RANDOM A WORD 

CONTAINING S CHARACTERS 

TIME TO START. BE CAREFUL. YOU 
DON'T WANT TO BE HUNG FROM 

THE GALLOWS... 

WHAT LETTER 

?X 
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THE LETTER X OCCURS ο TIMES 
UHAT DO YOU THINK THE UORD IS 
? XEROX 

Ш0Ш- YOU GUESSED IT 

YOU MUST KNOU THE LEXICON FRONT 
TO BACK 

UANT TO TRY AGAIN 

ТҮРЕ 1 TO GO AGAIN. 5 TO STOP 
fug 

CHICKEN 

RUN COMPLETE 


Program Listing 


10 REM THIS IS THE GAME 

20 КЕМ OF HANGMAN 

30 REM THE COMPUTER WILL CHOOSE A WORD 

uD REM IN ENGLISH AT RANDOM 

50 REM EACH TIME IT IS YOUR TURN, 

bO REM YOU PICK A LETTER, THE COMPUTER 
WILL 

70 REM TELL YOU HOW MANY TIMES IT 
OCCURS IN THE WORD 

80 REM YOU THEN TRY TO GUESS THE WORD 

ЧП REM AFTER A CERTAIN NUMBER OF 
GUESSES. IF 

100 REM YOU HAVE NOT GUESSED THE 
WORD THE 

110 REM COMPUTER WILL HANG YOU. 

120 H = 0 


il 


130 R Імтіс5 ж ΚΝΡ{ΕΥΥ + 1 


137 


190 FOR I = 1 TOR 

150 READ Us 

ЬП NEXT I 

170 L = LENIUSI 

180 PRINT 

140 PRINT ''THE COMPUTER HAS PICKED 
OUT AT'' 

COO PRINT ''RANDOM A UORD'' 

ClO PRINT ''CONTAINING '' Ls '' 
CHARACTERS'' 

ecO PRINT 

230 PRINT ''TIME TO START. BE CAREFUL; 
YOU" ' 

c40 PRINT ''DON'T WANT TO BE HUNG 
FRoM'' 

250 PRINT "ΤΗΕ GALLOUS...'' 

СЬО PRINT 

070 PRINT ''UHAT LETTER'' 

280 INPUT Ls 

210 IF LEN{L$} >1 THEN 310 

300 бото 325 

310 PRINT ''DON'T CHEAT. ONLY 1 
LETTER AT A TIME.'' 

300 GOTO 260 

325S J = B 

330 FOR I = 1 TO L 

340 IF SUBSTRíUS4I«.13 = 5 THEN 38Η 

350 6070 370 

351 J = J + 1 


370 NEXT I 


138 


380 
390 


“00 


410 


420 
425 
430 
440 
450 


460 


470 
4850 
490 


500 


510 
520 
530 
540 
550 
ShO 
570 


580 
590 
EDD 
Һ10 


РКІМТ 


PRINT ''THE LETTER''!s 18500! 


OCCURS '' uss '' 


PRINT 


PRINT ''UHAT DO 
UORD IS'" 

INPUT ΒΦ 

IF LEN(B$J < > Us 
ТЕ Вв «us THEN 
PRINT 
PRINT ''Ш0Ш- YOU 
PRINT ''YOU MUST 
FRONT 
PRINT ''TO BACK'' 
PRINT 
PRINT ''UANT TO T 
PRINT ''TYPE Ъ TO 
ЗТОР'' 

INPUT C 

IF C = Ъ THEN 550 
PRINT ''CHICKEN'' 
STOP 

GOTO 138 

PRINT 

PRINT ''REMEMBER4 
Ls ''CHARACTERS'' 
PRINT ''IN THE RA 
GOTO 400 


PRINT 


PRINT ''SORRY4 ШК 


TIMES'' 


YOU THINK THE 


THEN 560 
5 DU 


GUESSED IT'' 


KNOU THE LEXICON 


RY AGAIN'' 


GO AGAIN. Ὁ TO 


THERE ARE''S 


NDOM UORD'' 


ONG WORD'' 
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bep 
b30 


bun 


650 
1-14 


Ь?0 
Һай 


b10 
700 
710 


720 


730 


740 
750 


?bD 
770 


740 
240 
800 


810 
δα 


140 


М = MÛ + 1 

ОМ М GOTO 640, bbÛ¬ 6805 710- 
730. 750- 770- 800 

PRINT ''YOU ARE SENTENCED TO 
HANG'' 

GOTO 2b0 

PRINT ''THE GALLOUS ARE NOU 
ERECTED'' 

GOTO 260 

PRINT ''ТНЕ COMPUTER THINKS THIS 
ROPE WILL BE LONG'' 

PRINT ''ENOUGH FOR YOUR HANGING" 
GOTO αμ 

PRINT ''HOPE THE ROPE IS NOT TOO 
TIGHT AROUND YOUR NECK"! 

GOTO 260 

PRINT ''THE HANGMAN IS PREPARING 
THE TRAP DOOR'' 

GOTO гьо 

PRINT ''THE SPRING IS SET ON THE 
TRAP DOOR'' 

GOTO 260 

PRINT ''THIS IS YOUR LAST CHANCE 
YOU STILL MAY'' 

PRINT ''BE SAVED FROM HANGING'' 
GOTO сьо 

PRINT ''THE TRAP DOOR IS OPEN. 
YOU ARE HUNG'' 

PRINT ''G00D-BYE4 CRUEL WORLD'' 
GOTO чаб 


830 DATA XEROX 
B40 DATA MUSHROOM 
850 DATA AMERICA 
BLO DATA COMPUTER 
870 DATA TELEVISION 
880 DATA ATLANTIC 
890 DATA MISSISSIPPI 
900 DATA GAMES 
910 DATA HOUSE 
920 DATA PACIFIC 
930 DATA BEAR 
940 DATA BLANKET 
S50 DATA CORVETTE 
ЧЬП DATA MARBLE 
970 DATA ELECTRONICS 
580 DATA INTEGRATED 
990 DATA CIRCUITS 
1000 DATA PRETZEL 
1010 DATA VITAMIN 
1020 DATA CONTAINER 
1030 DATA WHEAT 
1090 DATA DEXTROSE 
1050 DATA PEOPLE 
10640 DATA FAMILY 
1070 DATA PROGRAM 
1080 END 

An adaptation of this program designed specifically for the 


Radio Shack TRS-80 computer using Level II BASIC can be found on 
page 211 in Section IL. 
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YOUR CHEATING COMPUTER 


This game lets you be a private eye. You must find a complete 
sequence of letters picked at random by the computer. А is lowest 
and Z is highest; therefore, if you input H and the computer responds 
too low, the letter must be between I and Z inclusively. 

But there is a catch. As you get better, the computer starts 
cheating. It lies to you about whether the letter is high or low. Of 
course, if the guess is correct, it will not lie. 


HEADER 
HEAD DATA 


BUILD RANDOM Flowchart for Your Cheating Computer 
SEQUENCE 


<s>" 
Y 
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Sample Кип 


THIS PROGRAM Es 
IT FICKS А LETTER 
WHICH YOU MUST ü 
ÜNE LETTER AT ñ TIME 
TO МАКЕ THIS GAME VERY 
THE PROGRAM CHEATS 

ON EACH LETTER 

WITH Της CHEATING із 
FUNCTION OF HOW WELL. 
QRYVTOUSLY THE FIRST 
THE SEQUENCE TS SET 
THE CHANCES ТНАТ 1 
WHAT TS YOUR GUESS? 
МОРЕ τμ ARE τ ШІП 
WHAT 15 YOUR GUESS? 
МИРЕ. Y OU AE POO 
WHAT YOUR [1151317 
NORE ARE TOU 
WHAT ІЗ үйшік GUEST 
OK = YOU GOT THIS 
THE SEQUENCE 
THE CHANCES 
WHAT ІЗ YOUR Hae 
MORE ὙΠῸ ARE |. OW 
WHAT TS ΤΗ GUES SSP T 
МОРЕ YOU ARE TOO HIGH 
WHAT YOUR GUESS? P 
МОРЕ ARE TOO ЦО 
HAT YOUR GUESS? К 
DK = YOU DOT THIS | 
THE SEQUENCE ай FAR 
THE CHANCES THAT I WON'T 
WHAT TS YOUR GUESS? б 

ПК = YOU GOT THIS LETTER 
THE SEQUENCE 50 FAR TS RRD 

THE CHANCE THAT I CHERT 
WHAT I5 GUESS? 
ПК you THES LE 
THE SEQUENCE SU FAR 
THE CHANCES THAT 1 
WHAT IS YOUR GUESS? 
NOPE YOU ARE TOO LOW 
WHAT IS VOL GUESS? 
НОЕ ЖАНЫ AR ET ШЕ 
WHAT I5 YOUR GUESS 
ΜΠΡῈ YOU ARE 
Whi T YEP μις 
NO К. ЕЕ TOO 
ча” 
ei 
Y GUKR 
TOLL ARE 
ра тан 
* M É АК ЕЕ 


YOU ВЕ A ПЕТЕСТІМЕ 
Qc OPES 


DIFFICULT 


nro ON 
TRY WILL ВЕ 
UP FOR. YOUR 

WON T CHEAT 
(2 


YOU THE 
HONEST” 


TRIAL. 
ARE 100 Ж 


ы 
HIGH 
HIGH 

К 
LETTER 

30) FAR е 
THAT I WüN' T 

UE: H 


lt 


CHEAT 


tein Eee eas 
ARE Fa. AAAS 


b 
TU 
Iu 
CHEAT AEE 


OL. SAU 


HR 7 YF ӨНЕ 50.22381 
із 

T j EF: 

ЕТ 


CHERT 


τ 
won 
ui TT ARE 84.23 


ІЗ 


Ë 
HIGH 


Tad 


бн 
м 
ры 
i HE Ss oF 
TOC LOW 
GUESS? T 
гай | nu 
MIT 


тай MINI 


М 
МОРЕ Т 
Bist 
MORE 


АМА М! 


AL JD m 


PREVIOUS 


zu 


TRIES 


143 


ОК ~ YOU GOT THIS LETTER 

THE SEQUENCE SQ FAR IS RROAX 
THE CHANCES THAT I WQN T CHEAT ARE 85,5077 
WHAT IS YOUR GUESS? А 

МОРЕ YOU ARE TOO LOW 

WHAT IS YOUR GUESS? в 

МОРЕ = YOU ARE TOO HIGH 

WHAT IS YOUR GUESS? C 

МОРЕ = YOU ARE TOO HIGH 

WHAT 13 YOUR GUESS? L 

МОРЕ YOU ARE TOO Low 

WHAT IS YOUR GUESS? Z 

МОРЕ = YOU ARE TOO HIGH 

WHAT 18 YOUR GUESS? T 

МОРЕ - YOU ARE TOO HIGH 

WHAT IS YOUR GUESS? R 

МОРЕ = YOU ARE TOO HIGH 

WHAT IS YOUR GUESS? Q 

МОРЕ YOU ARE TOO LOW 

WHAT 13 YOUR GUESS? Q 

МОРЕ - YOU ARE TOO HIGH 

WHAT IS YOUR GUESS? N 

МОРЕ YOU ARE TOO Low 

WHAT IS YOUR GUESS? Q 

NOPE = YOU ARE TOO HIGH 

WHAT IS YOUR GUESS? М 

OK = YOU GOT THIS LETTER 

THE SEQUENCE SQ FAR 18 RROAXM 
THE CHANCES THAT I WON'T CHEAT ARE 83.1432 


МОРЕ = YOU ARE TOO) HIGH 
WHAT 18 YOUR GUESS? H 
NOPE ТОН ARE TOO LOW 
WHAT 18 YOUR GUESS? J 
МОРЕ YOU ARE TOO LOW 
WHAT TS YOUR GUESS? M 
МОРЕ YOU ARE TOO LOW 
WHAT IS YOUR GUESS? U 
МОРЕ = YOU ARE TOO HIGH 
WHAT 18 YOUR GUESS? Q 
МОРЕ YOU ARE TOO LON 
WHAT IS YOUR GUESS? T 

OK = YOU GOT THIS LETTER 

THE SEQUENCE SO FAR IS RRGAXMT 

THE CHANCES THAT I WON'T CHEAT ARE 82.3513 
WHAT 18 YOUR GUESS? ü 

DK = YOU GOT THIS LETTER 

ІНЕ SEQUENCE SO FAR I8 ΒΠΠΑΚΗΤΩ 


THE CHANCES THAT I WON T CHEAT ARE 76.8613 
WHAT 18 YOUR GUESS? U 


ОҚ = YOU GOT TRIS LETTER 
я 
; 


Της μι δε SO FAR 15 mREGAXHTGLU 
Tele δις THAT I WON'T CHEAT ARE 71.7372 
WHAT TS YOUR GUESS? M 

NOPE = YOU ARE TOO НЕОН 

MHF LS Жалыны Olmos? à 

МОРЕ ҮЙІП ARE TOO |. ον 

WHead 15 YOUR GUESS? H 

Е ТЕНЬ ARS TOO ἐμ 

η ΤΠ ИЕН Y 
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17 
n 


ғи 


МОРЕ - YOU ARE ТОО HIGH 

WHAT IS YOUR GUESS? I 

DK ~ YOU GOT THIS LETTER 

THE SEQUENCE SO FAR IS RRQAXMTGUT 
ПА CHAMPION HAS STRUK AGIN 


NUMBER OF TRIES 45 
FROBABILITY OF CHEATING 


ON ALL TRIES 


70.7807 А 


THE TOTAL SEQUENCE IS RRQAXMTGUI 


TRY AGAINCYES/NO) % YES 


THE SEQUENCE 


THE CHANCES THAT I WON’T CHEAT ARE 


WHAT IS YOUR 
МОРЕ YOU ARE 
WHAT IS YOUR 
МОРЕ YOU ARE 
WHAT IS YQUR 
ОК ~ YOU GOT 
THE SEQUENCE 


THE CHANCES THAT I WON'T CHEAT ARE 


WHAT IS YOUR 
NOFE YOU ARE 
WHAT IS YOUR 
МОРЕ YOU ARE 
WHAT 18 YOUR 
МОРЕ YOU ARE 
WHAT IS YOUR 
NOPE YOU ARE 
WHAT IS YOUR 
NOFE YOU ARE 
WHAT IS YOUR 
NOFE YOU ARE 
WHAT IS YOUR 
МОРЕ YOU ARE 
WHAT 15 YOUR 
МОРЕ YOU ARE 
WHAT IS YOUR 
NOPE YOU ARE 
WHAT IS YOUR 
МОРЕ YOU ARE 
WHAT IS YOUR 
NOFE YOU ARE 
WHAT 15 YOUR 
МОРЕ YOU ARE 
WHAT 18 YOUR 
ок - YOU GOT 
THE SEQUENCE 
THE CHANCES 

WHAT IS YOUR 
ОК - YOU GOT 
THE SEQUENCE 
THE CHANCES 

WHAT 15 YOUR 
МӘРЕ ҮШІ ARE 
WHAT IS YOUR 
МОРЕ - 


THAT I 


THAT 1 


IS SET УР FOR YOUR TRIAL 
100 2 
GUESS? M 

TOO LOW 

GUESS? А 

TOO LOW 

GUESS? У 

THIS LETTER 

50 FAR IS V 

97.7778 
GUESS? ñ 

TOO LOW 

GUESS? С 

TOO LOW 

GUESS? E 

TOO LOW 

GUESS? H 

TOO LOW 

GUESS? К 

TOO LOW 

GUESS? |. 

TOO LOW 

GUESS? F 

TOO LOW 

GUESS? 8 

τοῦ LOW 

GUESS? U 

TOO LOW 

GUESS? W 

TOO LOW 

GUESS? X 

TOO LOW 

GUESST Y 

TOO LOW 

GUESS? Z 

THIS LETTER 

SO FAR 18 V2 
WON T CHEAT ARE 
ВНЕ M 

THIS LETTER 

SO FAR IS VZM 
WON’ T CHEAT ARE 
GUESS fF M 

TOO LOW 

HUET V 


97.2764 


20 УІ 


YOU ARE TOO HIGH 


4 
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WHAT 
NOPE 
WHAT 


МӘРЕ - 


WHAT 
МОРЕ 
WHAT 
МОРЕ 
WHAT 
МОРЕ 
УНАТ 
МОРЕ 
WHAT 
NOFE 
WHAT 
NOPE 
WHAT 
NOPE 
WHAT 


МОРЕ -- 


WHAT 
NÜFE 
WHAT 
NOPE 
WHAT 


МОРЕ ~ 


WHAT 
МОРЕ 
WHAT 
NOPE 
WHAT 
NOPE 
WHAT 
NOPE 
WHAT 
DK ~ 
THE 

THE 

WHAT 
NOPE 
WHAT 
МОРЕ 
WHAT 
МОРЕ 
UHAT 
МОРЕ 
WHAT 
NOPE 
WHAT 
OK -- 
THE 


IS YOUR GUESS? T 
YOU ARE TOO HIGH 
15 YOUR GUESS? R 
YOU ARE TOO HIGH 
IS YOUR GUESS? F 
YOU ARIE TOO HIGH 
IS YOUR GUESS? 0 
YOU ARE TOO LOU 
IS YOUR GUESS? N 
- YOU ARE TOO HIGH 
IS YOUR GUESS? Q 
- YOU ARE TOO HIGH 
IS YOUR GUESS? F 
~ YOU ARE TOO HIGH 
IS YOUR GUESS? N 
- YOU ARE TOO HIGH 
IS YOUR GUESS? H 
YOU ARE TOO LOU 
15 YOUR GUESS? K 
YOU ARE TOO HIGH 
IS YOUR GUESS? 
- YOU ARE TOO HIGH 
IS YOUR GUESS? I 
YOU ARE TOO HIGH 
IS YOUR GUESS? Е 
YOU ARE TOO HIGH 
IS YOUR GUESS? ü 
- YOU ARE TOO HIGH 
ІЗ YOUR GUESS? А 
YOU АКЕ TOO LOW 
13 YOUR GUESS? Û 
- YOU ARE TOO HIGH 
IS YOUR GUESS? & 
YOU ARE TOO LOW 
IS YOUR GUESS? C 
YOU ВОТ THIS LETTER 
SEQUENCE SOQ FAR IS UZMC 
CHANCES THAT I WON T CHEAT ARE 90,4886 
IS YOUR GUESS? M 
- YOU ARE TOO HIGH 
IS YOUR GUESS? K 
- YOU ARE TOO HIGH 
IS YOUR GUESS? H 
- YOU ARE TOO HIGH 
15 YOUR GUESS? Е 
= YOU ARE TOO HIGH 
13 YOUR GUESS? C 
YOU ARE TOO Low 
15 YOUR GUESS? E 
YOU GOT THIS LETTER 
SEQUENCE SO FAR IS UZMCE 


THE CHANCES THAT I WON T CHEAT ARE 89,4852 


WHAT 
NORE 
WHAT 
МОРЕ 
WHAT 


МОРЕ = 


WHAT 
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I5 YOUR GUESS? M 
YOU АКЕ TOO LOW 

1% YOUR GUESS? M 
YOU ARE TOO LOW 

15 YOUR GUESS? К 
YOU ARE TOO HIGH 
15 YOUR GUESS? Q 


Ἂ 


МОРЕ - ҮШІ ARE TOO HIGH 

WHAT IS YOUR GUESS? N 

OK - YOU GOT THIS LETTER 

THE SEQUENCE SO FAR TS VZMCEN 
THE CHANCES THAT I WON T CHEAT 
WHAT IS YOUR GUESS? М 

МОРЕ YOU АК E. TOO HIGH 

WHAT τὸ YOUR GUESS? F 

МОРЕ YOU ARE TOO LOW 

WHAT IS YOUR GUESS J 

MORE YOU ARE TOO HIGH 


ARE 


WHAT I5 YOUR 
МОРЕ YOU ARE 
WHAT IS YOUR 
МОРЕ YOU ARE TOO LOW 

WHAT IS YOUR GUESS? L 

МОРЕ - YOU ARE τοῦ HIGH 

WHAT IS YOUR GUESS? К 

NOFE - YOU ARE TOO HIGH 

WHAT IS YOUR GUESS? H 

OK ~ YOU GOT THIS LETTER 

THE SEQUENCE SQ FAR 15 UZMCENH 

THE CHANCES THAT I WON’T CHEAT ARE 
WHAT IS YOUR GUESS? T 

МОРЕ YOU ARE TOO LOW 

WHAT IS YOUR GUESS? X 

МОРЕ YOU ARE TOO HIGH 

WHAT IS YOUR GUESS? U 

МОРЕ YOU ARE TOO LOW 

WHAT IS YOUR GUESS? W 

ПК - YOU GOT THIS LETTER 

THE SEQUENCE 50 FAR IS UZMCENHM 
THE CHANCES THAT I WON T CHEAT ARE 
WHAT IS YOUR GUESS? M 

МОРЕ YOU ARE TOO LOW 

WHAT IS YOUR GUESS? M 

МОРЕ YOU ARE TOO LOW 

WHAT IS YOUR GUESS? К 

МОРЕ - YOU ARE TOO HIGH 

WHAT IS YOUR GUESS? F 

МОРЕ -- YOU ARE TOO HIGH 

WHAT 15 YOUR GUESS? Q 

МОРЕ. YÜU АКЕ TOO HIGH 

ЫНАТ IS YOUR GUESS? М 

ПК - YOU GOT THIS LETTER 

THE SEQUENCE 50 FAR IS UZMCINHWN 
THE CHANCES THAT I WON T CHEAT АКЕ 
WHAT IS YOUR GUESS M 

МОРЕ = YOU АКЕ. тай HIGH 

WHAT IS YOUR GUESS? B 

NOPE YOU ARE TOO LOW 

WHAT IS YOUR GUESS? K 

МОРЕ = YOU ARE TOO HIGH 

WHAT ІЗ YOUR GUESS? F 

ОЕ ~ YOU GOT THIS LETTER 

THE SEQUENCE 50 FAR I5 UVZMCENHWNF 
HEY BOSS - THIS GUY 


GUESS? б 
TOO Low 
GUESS? I 


18 CHAMPFIONZHIF 


88,2901 A 


87.5543 A 


86,02951 А 


89.1389 ЖА 


MATERIAL 
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NUMBER OF TRIES 70 

PROBABILITY OF CHEATING 

QN ALL TRIES 88.7192 Ж 

THE TOTAL SEQUENCE 18 UVZMCENHWNF 


TRY AGAING YES/NO? 7? NÜ 


RUN COMPLETE α 


Program Listing 


100 REM THIS PROGRAM "LEARNS" HOW TO CHEAT 

200 REM TO USE IT JUST TYPE RUN 

300 PRINT "THIS PROGRAM LETS YOU BE A DETECTIVE" 
400 PRINT "IT PICKS A LETTER SEQUENCE" 

500 PRINT " WHICH YOU MUST GUESS" 

600 PRINT "ONE LETTER AT A TIME" 

700 PRINT "TO MAKE THIS GAME VERY DIFFICULT" 

800 PRINT " THE PROGRAM CHEATS" 

900 PRINT " ON EACH LETTER" © 

1000 PRIN] " WITH THE CHEATING A" 

1100 PRINT"FUNCTION OF HOW WELL YOUDIO ON THE PREVIOUS TRIES" 
1200 PRINT "OBVIOUSLY THE FIRST TRY WILL RE "HONEST? 
1300 READ ΑΦ 

1400 DATA ARCDEFGHIJKLMNOPQRSTUvVwXYZ 

1500 DIM G$(10) 

1600 REM GET А SEQUENCE OF TEN RANDOM LETTERS 
1700 FOR Is) TO 10 

1800 NsRND(0)*1023 

1900 к=миге 

2000 KsKe*INT(K) 

2100 KSINI (K*t26*1) 

2200 IF K»26 OR K<] THEN 1800 

2300 68% (1) SSUBSTR(ASsKel) 

2400 NEXT I 

2500 REM SET UP COUNTER FOR LETTER IN PROGKESS 
2600 Cl=0 

2700 REM SET UP COUNTER FOR ALL LETTERS 

2800 С2=0 

2900 REM SET UP POINTFH TO LETTER IN QUESTION 
3000 L=] 

3100 КЕМ SET UP FRORARILITY 

3200 P=] 

3300 PRINT "ІНЕ SEQUENCE IS SET UP FOR YOUR TRIAL" 
3400 PRIN] "TRE CHANCES THAT I wON!Í CHEAT ARE are] 008 χι 
3500 PRIN! '"wHAT IS YOUR GUESS'; 

3600 Cl=C]*1 

3700 С2аС2»1 

3800 INPUI T$ 

3900 IF LEN(T$)»1 THEN 6000 
4000 IF T$«»6$(L) THEN 5200 
4100 PRINT "ОК = YUU GOT THIS LETTER" 

4200 PRINI "THE SEQUENCE SO FAR IS "3 
4300 FOR із! TOL 
4400 PRINT GS(T)3 
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4500 NEXT I 

4600 PRINT 

4700 РгРеР%(1/С1)/15 

4800 Сіз0 

4900 ігі?і 

5000 IF L>10 THEN 6700 

5100 GOTO 3400 

5200 P1=RND (0) 

5300 IF PoP] THEN 5500 

5400 GOTO 06500 

5500 IF T$ > GS(L) THEN 5800 

5600 PRINT "NOPE YOU ARE TOO LOW! 

5700 6010 3500 

5800 PRIN | "МОРЕ - YOU АКЕ TOO HIGH" 

5900 GOTO 3500 

$000 PRINT "ONE LETTER АТ А TIME = TURKEY" 

$100 PRINI " THIS ΤΗΥ MAKES FURTHER EFFORT WORSE" 
5200 IF Cl<2 THEN 3500 

5300 Cl=Cl=2 

5400 GOTO 3500 

6500 IF T»»G$(L) TREN 5600 

6600 GOTO 05800 

6700 IF C2 > 150 THEN 7900 

6800 IF C2» 100 THEN 7700 

6900 IF Ce > 80 THEN 7500 

7000 IF C2»60 THEN 07300 

7100 PRINT "DA CHAMPION HAS SIRUK AG IN" 

7200 6070 8100 

7300 PRINI "HEY BOSS = THIS GUY IS CHAMPIONSHIP MATERIAL" 
7400 GOTO 8100 

7500 PRINT "PRACTICE MAKES PERFECT = KEEP GOING " 
7600 GOTO 8100 

7700 PRIN] "NOT BAD FOF A BEGINNER = ВОТ LOUSY IF YOU 


PLAYED BEFORE" 

7800 GOTO 8100 

7900 PHINI "HAVE YOU THOUGHT GF PLAYING A SIMPLER GAME 
- LIKENS 

8000 PRINT " FIND YOUR FINGER?" 

8100 PRINI 


8200 PRINI "NUMBER OF TRIES",C2 

8300 РКІМІ "PROBABILITY OF CHEATING" 
8400 PRINT " ON ALL TRIES"sP#1005" x" 
8500 PRINT "ІНЕ TOTAL SEQUENCE IS "i 
8600 FOR I = 1 TO 10 

8700 PRINT 5% (1): 

8800 NEXT I 

8900 PRINI 

9000 PRINT 

9100 PRINI 

9200 PRINT "TRY AGAIN(YES/NO) "1 

9300 INPUT T$ 

9400 IF Te«»"YES" AND T$«»'"NO" THEN 9200 
9500 IF Tsz"YES" THEN :1700 

9600 STOP 

9700 END 


An adaptation of this program designed specifically for the 
Radio Shack TRS-80 computer using Level II BASIC can be found on 
page 215 in Section П. 
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COMP-U-STORY 


This program demonstrates the use of strings in games. By 
setting up a possible scenario and then filling in the blanks, we can 
create a setting as desired. 

This type of activity is quite important in interactive games of 
which Star Warp is an example. 


INPUT STRING 


MANIPULATE STRING 


REPLACE VARIABLE 
WITH THE 
VALUE OF THE 
STRING. 


Flowchart for Comp-U-Story 


Sample Run 


RUN 

PLEASE ENTER THE FOLLOUING INFORMATION 
YOUR NAME 

? KEN 

NAME А COLOUR 

? GREEN 

МАМЕ A PIECE ОҒ CLOTHING 
? HAT 

A PART OF THE BODY 

? TOE 

ANOTHER PART OF THE BODY 
? HAND 


ANOTHER COLOUR 
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? ORANGE 

WHAT ARE YOU SCARED OF {BEAST} 

? MOUSE 

A ROOM IN А HOUSE 

? BEDROOM 

UHO IS YOUR HERO 

? HULK 

OUR COMPUTER STORY 

THIS IS THE STORY OF KEN UHO 

ONCE WENT FOR A WALK IN THE WOODS. 
UHILE WALKING KEN MET UP WITH A GREEN 
MOUSE WHO CHASED THE SCARED KEN. 
UNFORTUNATELY KEN FELL ON HIS TOE 

AND RIPPED HIS HAT WITH HIS HAND. 
KNOWING THAT THE MOUSE WILL EAT HIM, 
KEN CALLS ON HIS HERO HULK. 

OUR HERO WHICH IS ORANGE DRAGS THE 
MOUSE OFF TO THE BEDROOM AND FREES POOR 
KEN. 

THE COMPUTER SAYS GOODBYE 


RUN COMPLETE. 
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Program Listing 

10 REM THIS PROGRAM ALLOWS YOU TO CON- 
STRUCT A 

20 REM STORY USING YOUR NAME 

30 REM AND ITEMS ASKED FOR 


50 PRINT 
bO PRINT 
70 PRINT 


АП PRINT ''PLEASE ENTER THE FOLLOWING 
INFORMATION" ' 

HU PRINT 

100 PRINT ''YOUR МАМЕ!" 

110 INPUT Απ 

120 PRINT ''NAME OF A COLOUR'' 

130 INPUT Bs 

140 PRINT ''NAME A PIECE OF CLOTHING’ 

150 INPUT C$ 

160 PRINT ΤΑ PART OF THE BODY"! 

170 INPUT Ds 

180 PRINT ''ANOTHER PART OF THE BODY'' 

140 INPUT Es 

200 PRINT ''ANOTHER COLOUR'' 

010 INPUT Fs 

0200 PRINT ''UHAT ARE YOU SCARED OF 
[BEASTI'' 


ЗП INPUT Fs 


240 PRINT ''A ROOM IN А HOUSE'' 
250 INPUT Hs 


СЬО PRINT ''UHO IS YOUR HERO'' 
870 INPUT 15 
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280 


290 


300 


310 


320 


330 


340 


350 


360 


370 


380 


390 


+00 


410 


450 


РКІМТ 

PRINT ''OUR COMPUTER STORY'' 
PRINT 

PRINT 

PRINT ''THIS IS THE STORY OF "85 
Ass ''UHO'' 

PRINT ''ONCE UENT FOR A UALK IN 
THE Ш0005."" 

PRINT ''UHILE UALKING4a'' ''à Ав: 
''МЕТ UP WITH А"! 

PRINT Bš '' ΤΙ беа '' WHO CHASED 
THE SCARED ''5 ASS Τα!" 

PRINT ''UNFORTUNATELY ''*3 Απ 
"'FELL ON HIS ''3D$ 

PRINT ''AND RIPPED HIS ''S (55 '' 
WITH HIS ''5 Ess ''.'' 

PRINT ''KNOUING THAT THE ""% 653 
'' WILL EAT НІП” 

PRINT ASS '' CALLS ON HIS HERO ''3i 
κ T ma 

PRINT '' OUR HERO. WHICH IS ''3 
Ез; '' DRAGS THE ''35 G$ 

PRINT ''OFF TO THE ''iH$* '' AND 
FREES POOR ''5 ASS ''.'' 

PRINT 

PRINT 

PRINT ''THE COMPUTER SAYS GOOD- 


bye" 
END 


This program also will run on the Radio Shack TRS-80 compu- 


ter with no modifications needed. 
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| AUTO RALLYE 
In this auto rallye you can choose both your car and the route. 
But the better the car, the more gas it eats; and the good routes are 


more dangerous. It's all lots of fun; but be careful. Don't blow your 
engine! 


OUTPUT HEADER 


INPUT CAR AND 
ROUTE 
MORE MESSAGES 


OUTPUT, VELOCITY, 
GALLONS, MILES, 
TIME 


INPUT GAS RATE 
UP DATE 


YES SORRY 
MESSAGE 


WIN 
MESSAGE 


Flowchart for Auto Rallye 


PRINT CHICKEN 
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Затр!е Кип 


FROGRAM 
THE CAR RALLY 


THIS IS THE SUPER CAR RALLY» THAT ALL 


THE DRIUING IS TOUGH THIS YEAR»: ANI 
WE ALL WISH YOU GOOD-LUCK!J)))!!) 1] I 


CHOICE OF CARS 


MINI (1) 
LOTUS (2) 
TRANS~AM (3) 
FERRARI (4) 


CHOOSE THE CAR ВУ THE NUMBER AFTER IT 

REMEMBER THE BETTER THE CAR THE MORE GAS IT USES. 
WHICH CAR 

? 4 


YOU NOW CHOOSE WHICH COURSE YOU WANT TO RACE ОМ, 

THE EASIEST COURSE IS NUMBER 1. AND IS THE STRAIGHTEST 
ROUTE. NUMBER 5 CONSISTS MOSTLY OF TURNS AND TWISTS 

WHICH COURSE UO YOU WANT (1 TO Š) ? 

? 1 

YOU WILL NEED TO TRAVEL 5 MILES WITH .5 GALLONS OF GAS 

YOUR STATUS WILL BE SHOWN EACH 10 SECOND, AFTER EACH STATUS 
CHECK YOU WILL BE ASKED FOR A NEW RATE OF GAS. А RATE üF 

+10 IS HARD ACCELERATION AND -10 IS HARD BRAKING. ANY NUMBER 
IN BETWEEN IS ALLOWABLE, 


PRESENT VELOCITY = 0 NO, OF GALLONS = Š 
NO. OF MILES = 0 TIME PASSED = 0 SECONDS 
WHAT IS YOUR NEW RATE OF GAS 7 10 


ROAD CONDITIONS VEHICLE AHEAI 1000 FEET 


PRESENT VELOCITY = 80 NO. OF GALLONS = 4464 
NO. OF MILES = „173913 TIME РАЗЗЕЙ = 10 SECONDS 
WHAT IS YOUR NEW RATE OF GAS ? 10 


КОАП CONDITIONS VEHICLE PASSED RY 72 MFH 


PRESENT VELOCITY = 128 NO, OF GALLONS = ‚ 428 
NO. OF MILES = ,452124 TIME FASSED = 20 SECONDS 
WHAT IS YOUR NEW RATE OF GAS ? 10 


ROAD CONDITIONS VEHICLE AHEAD 1000 FEET 


PRESENT VELOCITY = 158 NO. OF GALLONS =  .392 
NO. OF MILES = „795652 TIME FASSED = 30 SECONDS 
WHAT IS YOUR NEW RATE OF GAS 7? 10 


ROAD CONDITIONS VEHICLE FASSED ВУ 121 MFH 


PRESENT VELOCITY = 174 NO. ОҒ GALLONS = ‚356 

NO, OF MILES = 1,17826 TIME FASSEL = 40 SECONDS 
WHAT IS YOUR NEW RATE OF GAS ? 10 

DUMMY!! YOU BLEW YOUR ENGINE!! 

WHAT ТҮРЕ OF FLOWERS DO YOU WISH»; AT YOUR FUNERAL?? 
YOU WANT TO TRY AGAIN» RIGHT !!!! 

1-УЕб, 2-NO ? 2 

CHICNEN 


RUN COMPLETE. 
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Program Listing 


650 
660 
670 
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МЕМ ΤΗΕ CAR kALLY 


BRINK | 
PRIN) 


PRIN ft 


PRIN] 
PRINI 


THE CAR RALLY" 


PHINI'"TIHIS IS ΤΗΕ SUPER CAR RALLY» THAT ALL" 
PRINIUORIVERS IN THE WORLD WAIT FOH!111!1!111' 
PRINI'TRE DRIVING IS ТОШОК THIS YEAR, AND" 

PRINI"wE ALL WISH YOU GOOD-LUCK11111111!111" 


PRINT 

PRINT 

ӘКІМІ" CHOICE OF CARS" 
PRINT'MINI] (1) 
PHINI"LOTUS (2) " 
PRJNTUTKRANS=AM (3)" 
PRINTUFERRART (4) и 
PRIN | 


PRINI'CHOOSE THE CAR BY IFE NUMBER AFTER IT" 


PRINT 
PRINT 
INPUI 
LET CI 


"KEMEMEER THE BETTER THE CAR THE MORE GAS IT USES." 
"wHTCH САН" 


Ci 


zINT(CI) 


IF С1>4 THEN 280 
IF С1<1 ТНЕМ 280 


GOTO 

BRIN | 
60 То 
PRINI 


IF Nez 


PRIN] 
PRIN] 
PRIA} 
PRINT 
INFUI 


300 
"INVALIU CAR NUMHER, NEW CAR 7?" 
230 


] THEN 350 

"YOU NO« CHOOSE WHICH COURSE YOU WANT TO RACE ON," 

“THF EASIEST COURSE IS NUMBER 1, AND IS TRE STRAIGHTEST" 
"ROUTE. NUMBER 5 CONSISTS MOSTLY OF TURNS AND TWISTS" 
"WHICH COURSE DO γος wANI (1 TO 5) 7" 

C 


ё 
LET CesINTt (Ce) 
IF Co<l TREN 8419 
IF Се>5 TREN 410 


ОТС 
PRIN | 
GCTO 


IF Nes 


PRINT 
PRIN] 
PRIN Î 
PRINT 
PRINT 


FOR іт 


430 
"INVALID COURSE NU^4RER, NEW СНОТСЕ ο 

360 

1 TREN 490 
"YOU WILL NEED TO TRAVEL 5 MILFS wITH „5 GALLONS OF GAS" 
HYOLR STATUS wILL ВЕ SHOWN EACH 10 SECOND, AFTER EACH STATUS" 
"CHFCK YOU WILL RE ASKED FOR А KEW КАТЕ OF GAS, А КАТЕ OF" 
"%10 IS HARD ACCFLERATION AND -10 IS HARD HRAKTNG, ANY NUMBER 
"IN HETwEFN IS ALLOWABLE." 

1 Tn 6l 


REAC Н»М»5 


LET nz 


NEXT I 
LET А1 


R/10 


5.9 


LET м1=0 


LET cl 


2С1/2 


ГЕТ veo 


PRINT 


LET м120 
LET T=0 
LET υπο 
(ЕТ «1-0 


PRINT 
PRINT 
IF νι 
PRINT 
INPUT 


"PRESENT VELOCITY = "ұу; М0. OF GALLONS = "$A1 

"NO, OF MILES = мүр" TIME PASSED = "Т: SECONDS" 
>=5 THEN 1460 

"WHAT IS YOUR NEW КАТЕ OF GAS πᾳ 

G 


IF G «210 THEN 700 


680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
#00 
R10 
820 
830 
840 
850 
BED 
870 
875 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
920 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1910 
1220 
1930 
1240 
] 250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
13έ0 


IF G»10 THEN 700 
GOTO 720 


PRINT "NOT VALID, NEW RATES 


GOTC 660 

IF 6<9 THEN 780 
LET ¿Z=2+1 

IF 2>4 ΤΗΕΝ 760 
GOTO 790 


PRINI"DUMMY!! YOU BLEW YOLR ENGINE L1" 


GOTO 1270 

LET Zz0 

LET у= ІМІ (Весе му +V) 
(ЕТ {ж1+]0 

PRINT 

PRINT "КОАО CONDITIONS 
IF v»0 THEN 00850 
(ЕТ ved 

LET місМ1»У/460 

IF G<0 THEN 890 
LET AlsAle(G#S)/5000 
IF М] >= 5 THEN ЪЧЬЙ 
IF А1<0 THEN 1380 
IF Кіз! TREN 1050 
IF Giz] THEN 0980 


LET uzINT((C281) *HND(X) ) 
LET KaINT((3,75-C2) *RND (А) ) 


IF k»0 THEN 01290 
IF Ç 20 THEN 01340 


PRINT "CLEAR AND STHAIGHI" 


PRIN | 
GUTO £20 


LET HzINT(185*35, *KND(X)) 


LET н=н+5%С1 

JF Vow THEN 1500 
PRINT "TRROUGH CURVE! 
PRINT 

LET ы1=0 

GOTO 620 

LET r=E=(V=D)#3, 0 

IF Е<0 TREN 1100 


PRINT "VEHICLE "Ej" FEE! 


PRINT 
GOTO ben 
IF VeD<S THEN 1180 


PRIN] "VEHICLE PASSED РҮ" 


LET uzv-D 
PRINT 0% 
PRINT Ü MPH" 
PRINT 

LET кіз 
GUTC 620 


PRIN] "VERICLE RFING PASSED " 
LET DeINT (25+¢408RND (X) ) 
PRINT "GRAYHOUND BUS IN ОТНЕК LANE 


PRINÍ'"DOING''i 
PRINT 0} 
PRINT "IMPR 
LET Devel 


PRINT "CRASH VELOCITY=!3 


PRINT D 


БӘЕІМІЗАҺАТ TYPE OF FLOWERS DO YOU 


GQ То 01560 


PRINI "VEHICLE AHEAD 1000 FEET’ 


PKINI 


LET )UsINT(25*35*RND (А) ) 


LET кігі 
60 To 620 


PRINT "WARNING CURVE АНЕАО " 


LET «ігі 
KIN Î 


tts 


“І5н» 


AT YOUR FLNERAL??" 
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Lafu GU IQ 620 

1380 PRINT "EXFLLENT RUT WATTIN 

1390 PRINT 

1400 PRINI"TURKEY!! YOU КАМ OUT OF GaS» 
1410 GO Tu 1550 

1420 PRIN(U"DOCN*T KNOW HOws BUT YOU МАРЕ TFPI" 
1430 PRIN 

1440 LET KlszU 

1450 GO Tu 620 

1860 PRIA] ° THE FINISH cine” 

1470 РКІМ I 

1480 PRINI"YOU АКЕ LUCKY THIS YFARIIMH 

1450 GG То ,1560 

1500 PRINT "АКЕ TEKRIRLE" 

1510 LET н=н-5%С1 

1520 PRINT Hi"WAS THE SPEED THROUGH THE CURVE" 
1530 PRINT Vš ἡ WAS YOUR SPEED, RY TRE way? 
1540 GO TO 1270 

1550 КІМІ "YOU LEAD FOOTED #8¢%anna" 

1560 PRINT "YOU WANT TO TRY AGAINes BRIGHT 1111" 
1870 PRINT "1-ҮЕ5» Garo πὶ 

1580 INPLf v 

1590 IF Vs? THEN 1620 

1600 Nes] 

1610 GO lu 1640 

1620 PRIN] "CHICKEN" 

1630 GC TO 1700 

1640 RESTORE 

1650 GO Ту 220 

1660 NATA 459253910 

1570 DATA 605.5513 

1680 DATA 70».41%15 


1650 DATA 80..39.]8 
1700 END 


Ап adaptation of this program designed specifically for the 


Radio Shack TRS-80 computer using Level II BASIC can be found on 
page 217 in Section II. 
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0ЕС1$10№$! DECISIONS! 


This program helps you make decisions based оп weighing 
different factors. You input a category, name the items m the 
category and the factors required. Do not exceed 10 items or 5 
factors without changing the DIM statement in lines 30-60. If you 
modify, make sure you modify all the DIM statements 30-60. 


Flowchart for Decisions! Decisions! 
HEADER 


INPUT 
CATEGORY 
INPUT TYPES 
FOR P 
& FACTORS T 
RESPONSE TO FOR LOOP 
QUESTIONS 
PRINT RESULTS 


BEST IN EACH 
FACTOR 


PRINT OVERALL 
BEST 


FOR LOOP 
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Sample Кип 


THE COMFUTER WILL HELP YOU MAKE DECISIONS 


eere өзге soas cose 


BUT YOU HAVE TO HELF ME AS WELL» OF COURSE 


WHAT ТУРЕ ОҒ ITEM»DO YOU NEED HELP WITH 
? COMPUTERS 


FOR THE COMPUTER TO HELP YOU» ІТ WILL NEED 
A LIST ОҒ COMPUTERS FROM YOU 


HOW MANY COMPUTERS WILL WE WORK WITH? 10 


ТТЕМ 
ТТЕМ 
ITEM 
ITEM 
ITEM 
ITEM 
ITEM 
ITEM 
ITEM 
ITEM 


1 T о з. 


3 

ó ? POLY 

7 ? SWTFC-6300 
9 ? HITS5-8900 
9 ? SPHERE 

10 т IBM-379 


ENT ο πα” 
Шашы ды пы ше шы = = >= = 


THIS IS THE CORRECT LIST? 


Рр Т | А 5 
TROBO 

FET 

KIM 

FOL Y 
SWuTPFC-6800 
MITS-8800 
SPHERE 
IBM-370 


HOW MANY FACTORS ARE IMPORTANT TO YOU ? Š 


FACTOR # 1 T COST 

FACTOR F 2 SOFTWARE 
FACTOR F 3 ? EASE OF USE 
FACTOR # 4 Ῥ RELIABILITY 


FACTOR # © ВТЕ 
ARE THESE THE RIGHT FACTORS? 


p OST 

SOFTWARE 

EASE OF USE 

RELIABILITY 

SAE 

FOR EACH COMPUTERS WE WILL RATE THE FACTORS 
THE BEST RATING IS 10» THE WORST IS 0 
PLEASE TO NOT USE THE SAME RATING TWICE 

FOR THE ЗАМЕ FACTOR! ΕΤΕ ΤΕ ΤΙ 
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РІР-І1 

COST RATING ? 5 
SOFTWARE RATING ? 8 
EASE ΟΕ USE RATING? ó 
RELIABILITY RATING? 8 
SIZE RATING ? 9 
FnF-8 

COST RATING ? 4 
SOFTWARE RATING ? 7 
EASE OF USE RATING? 
RELIABILITY RATING? 
SIZE RATING ? S8 
TRS-80 

COST RATING ? 4 
SOFTWARE RATING ? 1 
EASE OF USE RATING? 1C 
RELIABILITY RATING? 16 
SIZE RATING ? 10 

FET 

COST RATING ? ó 
SOFTWARE RATING ? 3 
EASE OF USE RATING? 8 
RELIABILITY RATING? 9 
SIZE RATING ? 3 

KIM 

COST RATING ? 10 
SOFTWARE RATING ? Š 
EASE OF USE RATING? 1 
RELIABILITY RATING? 1 
SIZE RATING ? 10 
FOL Y 

COST RATING ? 9 
SOFTWARE RATING ? 4 
EASE OF USE RATING? 
RELIABILITY RATING? 
SIZE RATING ? Š 
ЗИТЕС--6800 

COST RATING ? 7 
SOFTWARE RATING ? 3 
EASE ОҒ USE RATING? 
RELIABILITY RATING? 
SIZE RATING ? Š 
MITS-8800 

COST RATING F 1 
SOFTWARE RATING ? 2 
EASE OF USE RATING? 2 
RELIABILITY RATING? 2 
SIZE RATING P 7 
SPHERE 

COST RATING " 3 
SOFTWARE RATING ? 9 
EASE OF USE RATING? 3 
RELIABILITY RATING? ὁ 
SIZE RATING ? 2 
IBM-370 

COST RATING ? 1 
SOFTWARE RATING ? 19 
EASE OF USE RATING? 1 
RELIABILITY RATING? 16 
SIZE RATING P? 1 


` C 


— ΓΩ 


LR) © 


κ”. 
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RATINGS 


ee ежен sisa poes cant vane 


COST | 
BEST RATING IS THE KIM 
ITS RATING WAS 10 


SOFTWARE 
REST RATING IS THE IRM-370 
ITS RATING WAS 10 


EASE OF USE 
BEST RATING IS THE TRS-80 
ITS RATING WAS 10 


RELIABILITY | 
BEST RATING IS THE IRM-370 
ITS RATING WAS 10 


БТУ 

BEST RATING 18 THE КІМ 

LTS RATING WAS 10 
OVERALL BEST RATING 


THE PIP-11 HAS THE BEST RATING 
ITS AVERAGE RATING WAS 7.2 


THE COMPUTER HOFES ΗΕ HELPED YOU!!! 
RUN COMPLETE, 


Program Listing 


10 REM ІНІ5 PROGRAM HELPS TO MAKE UECISTONS 

30 DIM A$(10) 

40 DIM н%(5) 

50 DIM ы(10»5) 

60 DIM C(10) 

70 PRINI 

80 ΡΗΙ͂ΝΙ 

90 PHINI"THE COMPUTER WILL HELP YOU MAKE DECISIONS" 
100 PHIN[" att 

110 PHINI"BUT YOU HAVE TO HELP ME AS WELL» OF COURSE" 
120 PHINI 

130 PHINI'wHAT TYPE OF ΙΤΕΜΑΩΟ YOU NEED HELP wITH" 
140 INPUT I$ 

150 PRIN] 

160 PRINI"FOMH THE COMPUIEH TU HELP Τους IT WILL NEED" 
170 PRINT"A LIST OF "515 FROM YOU" 

180 PRIN | 

190 PKINI"HOw MANY 8163" WILL WE WORK wITH'; 
200 INPUI X 
210 IF X«2 OH X»10 THEN 190 
220 PKINT 
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FOR Js] TO X 

рк] "ТЕМ 8 "fJ, 

INPUT A% (J) 

NEXT J 

PRIN | 

PRINT'THIS IS THE CORREC!] LIST?" 
РОН Ј=1 TO X 

ӘКІМІ А%(,)) 

NEAT J 

PRINI | 
PHINI"HOW MANY FACTORS ARE IMPORTANT 10 YOU; 
INPUI F 

IF F«1 OK F»5 THEN 330 

РКІМІ 

FOR әгі TOF 

PRINI"FACTOR # "τόν 

INPUT H$(J) 

NEXT J 

РКІМІ 

БкКІМІМАКЕ ТНЕЗЕ THE RIGHI FACTORS?! 
PHINI 

FOR j=) TOF 

ӘКІМІ B+ (J) 

NEAT J 

Әкімі 


БкІМІЗЕОН EACH "115951" we WILL KATE THE FACTORS" 


PHINI"THE BEST RATING IS 10. THE wORST IS 0" 


PHINI"PLEASE LO NOT USE IFE SAME RATING TWICE" 


PRINI"FOR THE SAME FACTOMK111!111!1" 
PRINI 

FOR к=] TO X 

PRINT A*(K) 

ΕΟΚ 121 TO F 

PRIN] Pt(L)3' HATING'': 


INPLT к 

Q(K ei) sk 

NEXT L 

NEXT K 

PRINI 

PRIN" RATINGS" 
PRINT" —————--l! 
PRINT 

FOR іс! TOF 

PRIN] B$(T) 

Y=] 

FOR Nz2 TO A 

IF G(YeT)>Q(NeT) THEN 710 
ΥΞΝ 

ΝΕΧΤ N 

PRINIMBEST RATING IS ΤΗΕ "%А%(Ү) 
PRINI"ITS RATING WAS ΙΟ (Υ9Τ) 
PRIN] 

NEAT T 

PRINT 

FOR Y=] 10 A 

FOR іші iO F 

C(Y)zC(Y) »Q(YS T) 

NEAT T 

NEXT Y 
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820 
830 
840 
850 
REO 
870 
BRO 
μου 
900 
910 
920 
930 
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J=] 
FOR 1=2 Tn A 


IF C(J)>C(1) ТНЕМ 00860 

421 

NEXT | 

әкімі" OVERALL BEST RATING" 

PRIN]? ΠΟΤΟ m m fO 
PKINI"THE UWšA*$(J)š#U HAS TRE BEST RATING" 


PHINIUIIS АУЕКАСЕ RATING WAS "+C (J)/F 
PRIN] 

PRINI'TRE COMPUTER HOPES НЕ HELFFD YOLU! 11! 
ENN 


COMPUTER СВАР$ 


This program lets the user input а BASIC program and then 
search for all variables found within it. Variables must be single 
character. When using the assignment statement, the LET keyword 
must be used. When printing, do not type commas (,) between 
variables, therefore; 10 PRINT A,B,C 
must be entered as 10 PRINT A B C 

This program is useful in analyzing variables to see whether 
they have been printed, if they are assigned before being used, etc. 

Of course, the clever user can use this program as a text editor. 
Remember to indent the END four spaces, pretending that a line 
number was present. Line numbers are not required with the rest of 
the lines, and the other commands will still function except the TEST 
function. 

We can modify a line or add lines whether using it with variables 
or as a text editor. 


ENTER LINES OF TEXT 
INCLUDING END 


PRINT OPTIONS 
MODIFY LIST TEST 


MODIFY 
LINE OF 
TEXT 


LOCATE 
ALL 
VARIABLES 


LIST 
CURRENT 
CONTENTS 


Flowchart for Computer Craps 
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Затр!е Кип 


ЕН 


boot soaa‏ مود مم بیس sose seoa commn baro croa азаа cate‏ جو seet seme peen weim ae pees esee er toas asep cete psoe sese‏ ووا 


ЖЖЖЖЖЖЖЖЖЖОАКТАВІ ЕЗЖЖЖЖЖЖЖЖЖЖ 


ее nade s... s... жоға s... sony лара موجه‎ зове roma otat 


БЕНЕН 


ENTER PROGRAM: REMEMBER TO USE LINE NUMBERS FROM 
01 TO A MAXIMUM OF 25 (00ZLNz26) 

ENTER NO MORE THAN 5 VARIABLES РЕК LINE 

USE АЗ THE LINE NUMBER THE SAME NUMBER AS THE 
ENTRY NUMBER SUFFLIEI BY THE FROGRAM TO INSURE 
PROPER OPERATION OF THE FROGRAM 


ENTRY # 1 

? Ol1.LET ΑΞΗΧΟ 
ENTRY # 2 

? 02 INPUT À 
ENTRY # 3 

? 03 INFUT E 
ENTRY # 4 

? 04. INFUT C 
ENTRY # 5 

? 05 INPUT D 
ENTRY 4 ὁ 

? Oé IF A&E THEN 08 
ENTRY Ф 7 

? 07 LET C+D 
ENTRY + 8 

? 08 LET C+AZU 
ENTRY & 9 

? PRINT Α 
ENTRY # 10 

? END 

ENTRY # 11 

? $i END 


THE FOLLOWING OFTIONS ARE AVAILABLE 
LIST 
MODIFY 
anu 
TEST 


ОРТТОМТ LIST 


ENTRY 4 
ENTRY d 
ENTRY d 
ENTRY d 
ENTRY + 
ENTRY 4 
ENTRY 4 
ENTRY # 
ENTRY d 
ENTRY 4 
ENTRY 4 


01 LET ΕΙ 

Q2 INFUT A 

INFUT В 
04 INFUT C 
OS INPUT I 
98 IF AFB THEN 08 
07 LET CHU 
08 LET С+А/П 
FRINT ñ 

Ὁ ЕМІ 

1 11 ENT 


ὃν Ὁ} کم یم‎ 
as: 
v 
νά 


іп 
ыз 


кеке чо DOC O. 


ОРТТОМ? M 
WHICH ENTRY NUMBER 


Pal 


lL LET A=BXC 
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ENTER REPLACEMENT LINE 
% 91 КЕМ TEST FROGRAM 
01 REM TEST PROGRAM 


OPTION? М 


WHICH ENTRY NUMBER 

?.9 

РЕІМТ ñ 

ENTER REPLACEMENT LINE 
* 09 PRINT 

09 PRINT 


OPTION? M 


WHICH ENTRY NUMBER 
ENTER REPLACEMENT LINE 
* 09 PRINT A 
09 PRINT À 


ОРТТОМТ M 


WHICH ENTRY NUMBER 

т. 10 

END 

ENTER REPLACEMENT LINE 
т 10 PRINT ATEXC 

10 PRINT ATEXC 


Oe TION? L. 


ENTRY Ё 1 01 REM TEST PROGRAM 
ENTRY # 2 92 INPUT ñ 

ENTRY # 3 — 03 INPUT В 

ENTRY £ 4 04 INPUT C 

ENTRY 4 5 — 95 INPUT D 

ENTRY # 6 — 06 IF ASB THEN 08 
ENTRY # 20 OF LET Ct 

ENTRY g & 08 LET Č+A/Ü 
ENTRY # 9 08 PRINT A 

ENTRY # 10 10 PRINT A BAC 
ENTRY # 1 11 END 


OPTION? TEST 


VARTABLES FOUNG TN THE GIVEN PRÜGRAM 


21% 255. ο өзө: ο ο ο 


VARTABLES POUND IN INPUT STATEMENTS 


v 
> 


váakráasBLES FOUND IN PRINT STATEMENTS 


gARTABLES FOUND TM IF STATEMENTS 
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VAR TABLES FOUND IN LET STATEMENTS 


ΚΗ COMPLETE s 


Program Listing 


10 REM VARTARLE PATH-FLOW ANALYSTS 

30 REM THIS PROGRAM ASSUMES THAT THE LINE NUMBERS 
40 REM ENTERED BY THE USER ARE CONSISTENT WITH THAT OF 
50 REM THE ENTRY NUMBERS 

$0 REM DIMENSION ALL VARIABLES USED AS MATRICES AND VECTORS 
70 DIM P$(25)» Q$(25,5). R$(25,5)» 7%(25,5) 
80 DIM u$(25,5) 

90 REM CLEAR ALL MATRICES AND VECTORS 

100 REM BY SETTING THEM EQUAL TO A BLANK SPACE 
110 REM CLEAR VECTOR P$ 

120 FOR [а] TO 25 

130 P$(I)s" ü 

140 NEXT 1 

150 REM CLEAR MATRIX Q$ 

160 FOR [s] TO 25 

170 FOR у=] TO 5 

180 Q$(IsJ)z" н 

190 NEXT J 

200 NEXT I 

210 REM CLEAR MATRIX R$ 

220 FOR [=] To 25 

230 FOR Js] TO 5 

240 H$(I$,J)z" W 

250 NEXT J 

‚260 NEXT I 

270 REM CLEAR MATRIX T$ 

280 FOR is} То 25 

PSU FUR πι IO 5 

300 F*$(l1$,J)z" " 

319 NEXÎ J 

320 NEXT Т 

330 REM CLEAR MATRIX U$ 

340 FOR [а] To 25 

350 FOR Ja] TO S 

360 U$(IsJ)s" ἡ 

370 NEXT J 

380 NEXT I 

390 REM OUTPUT STARTING LABEL 

400 PRINT 

410 РКІМІ 

420 PRINI 

430 ΡΗΙΝΤΊ!Φ»ΦΦΦΦΦΦΦΦΦΦΦΦΦΦΦΦΦΦΦ4}44 Ф 

440 РКМ + ее ч» з ч» өз ө аз аз ©з o өр ая аз о аз чө ор o ео бө өч з}! 

450 РИ]МТ + анн АУДЫ] ARLES 4 a зоа tae te би 

460 PRIN Th ewe sees nt. | 

470 PRINT" «**o2*99*9999*69969*9 99% ¢+ + 4 + ++!!! 

GRO PRIN | 

490 enin | 

BOO На тнЕАТЕЮ PROGRAM НЕМЕМВЕН То USE LINE NUMBERS FROM" 


(410 ещн TO А MAXIMUM OF 25 (QU«LN«26)" 

S20 НН [w ten [FR NO МОКЕ TRAN 5 VAKLARLES РЕН LINE" 

530 PRINT"USE AS ΤΗΕ LINE NUMBFR THE SAMF NUMRER AS THE" 
540 PRINT'"ENTRY NUMBER SUPPLIED BY THE PROGRAM TO INSURE" 
550 PRINT"PHOPER OPERATION OF THE PROGRAM" 

560 PRINT 

570 REM ENTRY OF USER'S PROGRAM TO BE ANALYZED 

580 Να] 

590 PRINT "ENTRY # М 

600 INPUT LS 

610 PS(N)sL$ 

620 REM [F THE LAST ENTRY wAS AN END STATEMENT 

630 REM TERMINATE ENTRY MODE 

1640 IF SUBSTR(L$s433) а"ЕМО" THEN 670 

1650 МаМ№е] 

0660 GOTO 590 

1670 PRINT 

|680 REM DISPLAY AVAILABLE OPTIONS TO THE USER 

1690 PRINT"ITHE FOLLOWING OPTIONS ARE AVAILABLE" 


700 PRINT! LIST" 
710 PRINT" MODIFY" 
‚720 PRINT" ADO" 
9730 PRINT" TEST" 
4740 PRINT 


J750 PRINTHOPTION'S 

9760 INPUT L$ 

1770 IF (заң! OR L$z"LIST" THEN 840 
‚780 IF L$s"M" OR L$z"MODIFY" THEN 900 
0790 IF ізе"Т" OR LSz" TEST" THEN 1140 
:)800 IF L$3z"A" OR L$z"ADD" THEN 1030 

1810 PRINT"COMMAND IS NOT RECOGNIZED" 

1850 GOTO 740 

830 REM PROCESS LIST OPTION 

840 PRINT 

850 FOR із! TO N 

860 PRINTUENTRY # "STs {РФ (Т1) 

870 NEXT I 

‚880 PRINT 

890 GOTO 740 

1900 PRINT 

910 REM PROCESS MODIFY OPTION 

(920 PRINT''wHICH ENTRY NUMBER" 

‚930 INPUT L 

'940 IF L«01 OR >м THEN 960 

950 GOTO 380 

1960 PRINI"LINE NUMBER"3LS"HAS NOT BEEN ЕМТЕБЕО" 

970 GOTO 920 

980 PRINT PS(L) 

990 РМІМІЗЕМТЕН REPLACEMENT LINE" 

1000 INPUT P$(L) 

1010 PRINT P$(L) 

1020 GOTO i740 

1030 PRINT 

1040 REM PROCESS ADD OPTION 

1050 PRINT"LAST LINE ENTERED IS" 

1060 PRINT Р (N) 

1070 PRININENTER NEW LINES" 

1080 PRINT'ENTRY" SNE 

1090 INPUT L$ 

1100 P$(N)sL$ 

1110 IF 5υΒ5ΤΗ͂(( 5143) = "ЕМО" THEN 740 
1120 N5sN*1 

1130 GOTO 1080 

1140 PRINT 

1150 REM ANALSIS 

1160 REM FINO OUT WHAT THE STATEMENT IS ON LINE K 
1170 καὶ 

1180 IF SUBSTR(PS(K) 0403) я"ЕМО" THEN 1690 
1190 IF SUBSTR(PS(K) 6495) 3" INPUT" THEN 1280 
1200 IF SUBSTR(PS(K) »4+3) z"LET" THEN 1380 
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1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 


IF SUBSTR(PS(K) 0405) 2 PRINT" THEN 1480 
IF SUBSTR(PS(K)s6s2) n" TF" THEN 1580 

IF K>25 THEN 1260 

КЕК+] 

6070 1180 

.PKINT"PROGRAM ERROR» NO END STATEMENT" 


REM PROCESS INPUT STATEMENTS 
J=] 

FOR 1=10 ТО LEN(PS(K)) 
2$2SUBSTR (P$ (K) s T»1) 

CHANGE 2$ TO A 


1320 IF A(2)«0 OR А(2)>26 THEN ‘1350 


1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 


1690 


1100. 


1710 
1720 
1730 
1740 
1750 


1760 


1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
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US (Ks J) SUBSTR (P$ (KO 91,1) 

JaJ*1 

NEXT I 

GOTO 1240 

jen LET STATEMENT SUBROUTINE (0$) 
Ja 

FOR 158 TO LEN(PS(K)) 
2$sSUBSTR (PS (К) » 151) 

CHANGE 2$ TO A 

IF А(2)<0 OR A(2)»26 THEN 1450 
Q$ (Ks J) 3SUBSTR(PS(O ,» I5 1) 

ντ] 

NEXT I 

GOTO 1240 

REM PRINT STATEMENT SUBROLTINE (R$) 
J=] 

ΕΟΝ Із10 ТО LEN(PS(K)) 
Z$=SUBSTRI(P$(K) 9191) 

CHANGE 2$ TO А 

IF A(2)<0 OR A(2)>26 THEN .1550 
RS (KeJ) sSUBSTR(PS(K) +I 1) 

JzJe*l 

NEXT I 

GOTO 01240 

pen {F STATEMENT SUBROUTINE (T$) 
a 

FOR [=7 TO LEN(P$(K)) 

IF SUBSTR(PS(K)sI*4) z' THEN" THEN \1670 
Z$zSUBSTR(PS (К) 1,1) 

CHANGE 2$ ТО А 

IF A(2) «0 OR A(2)»26 THEN 1660 
T$ (K«J) SSUBSTR(PS(K) S I9 1) 

JaJe1 

NEXT I 

GOTO .1240 

НЕМ 999 АМАСУЯ [5+ 


PRINT 

PRINT ААРААН ЕНРИКЕ ИСИНЕ) 
PRINT'IVARTABLES FOUND IN THE GIVEN PROGRAM" 
PR INT! —————————————TáÓ 
PRINT 

REM PRINT ALL VARIABLES FOUND 
PRINT"VARTABLES FOUND IN INPUT STATEMENTS" 
PRINT 

FOR καὶ To 25 

FOR J=} TO 5 

A(2)227 

Z2$zU$ (Key) 

CHANGE 2$ TO A 

IF А(2)<1 OR A(2)»26 THEN 1840 

PRINT US(KsJ) κ "LINE № "SSUBSTR(PS (К) 9192) 
NEXT J 

NEXT К 

PRINT 

PRINT"VARIARLES FOUND IN PRINT STATEMENTS" 
PRINT 

FOR Ks] To 25 


1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
9090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
. 2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 


FOR Ja] TO 5 
А(2)а27 
Z$=R$(K +J) 


CHANGE 2$ TO А 

IF А(2)<] OR A(2)»26 THEN 1960 

PRINT R$(KsJ) HLINE M "/SURSTR(P$(K) 9192) 
NEXT J 

NEXT K 

PRINT 

PRINT'IVARTABLES FOUND IN IF STATEMENTS" 
PRINT 

FOR καὶ TO 25 

FOR Js1 TO 5 

A(2)=27 

2$=Т% (K, J) 

CHANGE Z$ TO A 

IF А(2)<1 OR A(2)>26 THEN 2080 

PRINT T$S (KJ) "LINE # "$SURBSTRI(PS(K) 9199) 
NEXT J 

NEXT K 

PRINT 

PRINT'VARIABLES FOUND IN LET STATEMENTS" 
PRINT 

FOR καὶ TO 25 

FOR уж] TO 5 

А (2) =27 

2$=0% (Ко J) 

CHANGE 2$ ТО А 

IF A(2)<1 OR А(2)>26 ТНЕМ 2200 

PRINT Q$(K»sJ) "HLINE # "#SURSTR(P$(K) 9198) 
NEXT J 

NEXT K 

PRINT 

PRINT *49a9*9RUN COMPLETE #441 

END 
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АВТ GRAPHICS 


Art Graphics lets you draw semi-random pictures based оп the 
binomial theorem. You may specify the array size and which ele- 
ments to blank, such as every multiple of N except where N = 1, in 


which case everything will be blanked and nothing will be printed. 
Give it a try. 


INPUT 
PARAMETERS 


CALCULATE 
SINGLE 

OUTPUT 

E A LINE 


CALCULATE 
QUAD 

OUTPUT 

| А LINE 


Е 


Flowchart for Art Graphics 
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Sample Кип 


КАМПОМ АКТ 


pere sern ses ovan nsen nery eote oost sati vere 


AVAILABLE PATTERNS 
SINGLE 
DOUBLE 
QUAT 
OKAY ART FELLOWS » 


1 


3 


HOW MANY ROWS 
πο МОТ EXCEED 


ἃς x6 ας 3€ 3€ 3€ 36 3€ жн 


3€ 5 


RUN 
КИМ 


= 


COMPLE 


ж ж ἃς δὲ 3€ 3 3€ ж 3X€ 3X ж 


T 


TE 


= 
^ 


АМИ 


Ж 


Ж 


эё 3€ MMM 36 3€ 36 X 
э 3c 3€ ж 3€ 3X sc ὃς ж 3 X 
ж ὃς 3X 3€ ж 3e چو‎ 3€ X X X ж 


u ЫНАТ ТУРЕ 
WHICH MULTIPLES SHOULD BE BLANKS? 3 
COLUMNS 

36. PLEASE? 


Ж 


КАМПОМ АКТ 


Aeon ento көті vern seer sege төзе v... vena reeg 


AVAILABLE FATTERNS 


(aee suge өзі» PEON 9494 s... zeng ваз s... .... v... ване тана otre vot reet sepa sost 


1 


μα, 


ж. 


3 


OKAY ART FELLOWS» WHAT ТУРЕ ? 1 
WHICH MULTIFLES 
HOW MANY ROWS 
πο NOT ЕХСЕЕП 
Ж Ж Ж Ж Ж Ж Ж OK Ж Ж Ж Ж OK OK K 
ЖЖЖ X KK X X 

X X X X X 


зе 3 3c 3 3€ 3X KK 
3 э ж 3c 3 3€ 3X 3X σε 


ж эс 3€ 3€ 3€ RE 


SINGLE 
DOUBLE. 
QUALI 


SHOULD 


БЕ BLANKS? 
АМП COLUMNS 


? 1 


12 


36. +, .FLEASET?T 17 


* ж * 

X X X K ж 
X жж жж 
жж X X X 
K KK ж X 
KK K KX ж 
K K X X X 
X KX X X X X 


Ж 
Ж 


Ж 
Ж 


* sx жє ж ж 
ж x ж x >< 


© x 3€ X X ж 
© эе x x ox Є 
X x 3 Ἂ x Є 


x 3 x X 3€ θε 


x xXx 
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ж 3€ 3€ 3€ 36 3€ 3€ Πε 
ж x 3 X x κ же 
ας ж 3€ 36€ X κ X X 
© 3: ж ж 3€ 3 X ж 
Me 3x ххх X X EN 
X 36 3€ x x 3 x X 
X 3 ж x Є x ox ж 
MK 3€ ὃς 3€ 3€ ж ж 
ἃς 3c ж эс ж © ж 
3€ є ж ж ж 
© s ox ж ж ЭЄ 


ж 3€ ж ж x x ٭‎ %< 
ж 3€ X эє э € 


КИМ COMPLETE. 
КОМ 


RANDOM АКТ 


ve» asan aeta ο]‏ جو 


AVAILABLE PATTERNS 


Ὃ ο seue s... зава sepe v... vtta vete teos онко 


1 SINGLE 
2 DOURLE 
4 QUAL 
OKAY ART FELLOWS» WHAT ТҮРЕ ? 2 
WHICH MULTIFLES SHOULD BE BLANKS? 3 
HOW МАМУ ROWS АМП COLUMNS 
LO NOT EXCEED 35....PLEASE? 17 
K Ж OK Ж Ж Ж OK Ж Ж OK Ж Ok Ж OK ж 
Ж ЖЖ ЖЖ XxX XX Ж 


Ж 
K K K } 


ж 
ὃς ж 
ж 


Ж 
Ж Ж Ж Ж 
ЖЖ X X XX Ж Ж 
Ж Ж Ж Ж Ж OK Ж Ж OK X XK 


RUN COMPLETE. 
ЕНІМ 
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meve sens bett caer rott sere term mume natr معدم‎ 


RANDOM ART 


AVAILABLE FATTERNS 


ж * 
* ж 
ж ж 
ж ж 
ж ж 
ж ж 
ж ж 
ЕЗ ж 
ж ж ж ж ж ж 
ж x 
ж ж ж ж ж ж 
ж 
ж ж эе © жж э эе ж 
ж ж ж 
ж ж жж жж жж 
ж ж ж 
ж ж жж-ж эж % эє эж ж ж 
ж жж ж 
ж ж эє эє % ж ж жож ж ж эж ж 
ж жж 
ж ж ж эе эе ж ж ж жж ж жж X 
ж жж * ж ж ж 
tO E 3 x * 3¢ эє < ж ж ж ж 36 * 3 
NCC κώνο ο δὲ о” ar in Жы 
б. © ж ж жж ж ж ж ж ж 
у] . Nau Кы и ag Мы * ي‎ * να 
> ж 
"mox ж ж ж ж ж ж x3 33 κ ж ж ж ж ж ж.ж x ο 
ж со x ΕΗ еқ и жо x pur „е 
. т ж жж ж ж жж 
=s πο κ ж жж ж ж жж 
ui o ж эє эє э x x ж т ж ж ж ж ж ж ж ж ж 
iL Lil x x x i ж ж ж ж х x ж 
2- ui Qe x x9 ж ж " μπι δ 5 зе” 25:46 iu 
be ра 21 < ж ж ὧν * э ж ЖАР 
i Mix ж ж ж эє ж ж 
пао тии ея x3% MM 6 € ata ud б 
4 - δις τ. ж x κ 
Zi ke x x x* ἃς © ж ж ж xx жж ar ж жж 
то. 3 ыш ο. | жою * ə& ox 
TG DG Q + ж ххх э 3€ X 3€ X 3€ X 3X 3€ X HME NUIT T TE μονος 
me > ж = z Z < 
ша X хх x ж жшж эе x жож ë ж X жою 
m x9 abet es мм ж 
= ф < r x > x Xx = i ос. 
шш ы с b una зоо + % ж ж жж эж ж ж ж X ΣΑ X 
4 -- i = . 
d itl i s x xXx * + Ж! а.ж жж ж ж ж зж X ж 9€ X X X 3€ ж 
SAA 2i ο. - Ld i X i іші л жо ж * 
Zogi = СО iif 3 ж ж ж X Є - ei uli = G < r э ж ж ж жоє ж ж ж “жж 
μα Са ту eit 12 | ` iri £I ‚шш ош E. * зе 
Те ксы ui : ыш = i Rod» lo -. τὲ ж ж ж ж ж ж ж ж GC ж ж πὲ е 
£n ба C = х жє 3 ж ж ж © ж ж ы! ті і:саалазы + ж ж | 
PO D > i x ж а. ші û! Z D < Li ra © Lu we x * x ж ж ж ж ж ж ж ож ж ож жож е 
ро = i HO ш о ж. x ж ж жє 
іс = ο * * ж 3x ox ж эе ж Ж шо а хж ж ж ж ж.ж s S€ ж жо ж ом э ὃς 3€ e πε е ж 
< < = * * 3 =! 2 پو‎ Y e x ox * د بو یږ‎ 
f i ü - ж ж ж ж ж ж ὃς ж ж چ‎ э δε ὃς 2£ X 3 e 
TEO% ж © ж ж MMMM MME о <i тан 
ا‎ e x "— — =! „gage эе ж э ж ж ж * жож ж ж ж ж X ж 3 3€ O& ж πε 3 36 ж 
"4 r Z 
SSE κ жжж.ж Зе s <! тол * Бы ж ж ж ж «жжж жж X 36 X ж ж ж ж ж ж E ж ж Ge S€ ж πὲ ж 
HHS S ZE E ж ж 3€ X X x 3€ эе 3€ 3€ 3€ эе 3€ % 3X 3€ X w ü X 2 l em S 200 x x w x % % зе ж X зе зе зе X зе % x X зе зе эе эе x k x X % Зе RO = > = 
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ki COMPLETE. 


гторгаш шір 
10 REM PRINT TITLE 


20 PRINT 
30 PRINT" RANDOM АНТ" 
40 PRINȚ" ww o» o o ow © ov ow O o ÎÎ 
50 PRINT 


60 REM ART USING BINOMIAL THEOREM 
80 DIM Р (36936) 

90 МАТ P=ZER 

100 PRINT"AVAILABLE PATTERNS" 


| 1 0 PR IN [emm meom! 


120 PRINT") SINGLE" 
130 PRINT"2 DOUBLE" 
140 PRINT! 3 QUAD" 


150 PRINTHOKAY ART FELLOWS» WHAT ТУРЕН} 
160 INPUT O 

170 IF 0<>1 AND 0<>2 AND O<>3 THEN 00150 
180 PRINT''wHICH MULTIPLES SHOULD BE BLANKS''$ 
190 INPUT Q 

200 PRINT"HOw MANY ROWS AND COLUMNS" 
210 PRINT"DO NOT EXCFED 36... РЕЕАЗЕН} 
220 INPUT T 

230 IF T*(36-T)«0 THEN 200 

240 IF Oz) THEN 270 

250 IF Озё THEN 460 

260 IF О=3 THEN 690 

270 FOR ка| TO T 

280 FOR Cz] TO T 

290 IF (R=1)%(C=1)=0 THEN 320 

300 Р(К,С) =Р (Я,С-] ) + (Р (К-1.С)/О) 

310 GOTO 330 

320 P(RecC) 21] 

330 NEXT С 

340 NEAT R 

350 FOR к=] To T 

360 FOR Cæ} TO T 

370 IF РН,С)-0 THEN 410 

380 IF (P(R$.,C)/Q)zINT(P(R,C)/G) THEN 410 
390 РКІМІ"” 1; 

400 GOTO 420 

410 PRINT" πὲς 

420 NEXT C 

430 PRINT 

440 NEXT R 

450 STOP 

460 ZsT 

470 м=2 

480 FOR к=] ТОМ 

490 FOR Cz] TO 2-1 

500 IF (HM91)*(C-1)20 THEN “530 

510 Р(Ю,С) =Р (®,С-=1 ) +P (Rel sC) 

520 GOTO 540 

530 Р(К,С) =] 

540 NEXT С 

550 257-ἱ 

560 NEXT К 

570 Z2N 

580 Ма2 

590 FOR HzZ TO 1 STEP =} 

600 FOR CzZ TO м STEP =] 


610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1160 
1200 
1210 


IF (Re2)9(C92)20 THEN 640 
P(ReC)sP(ReCol) oP (К+|,С) 
GOTO 650 

Р (Я.С) =1 

МЕХТ С 

М=М+ | 

МЕХТ К 

GOTO 350 

MzQ 

YzT 

2-ШІМІ(Ү/2) 

8В5=2%+2 

21z4 

2222) 

23222 

X4223 

XŠ=X4 

FOR iz] TO 21 

FOR Js] TO Z 

IF (Je1)*(I91)20 THEN 830 
Ρο) aP(I»J91) *PCcI-1»J) 
GOTO 840 

В (1.73) =] 

NEXT J 

2227-1 

МЕХТ I 

Nz21 

FOR [s] TO αὶ 

FOR gaY TO Х891 STEP =] 
IF I=] THEN 940 

IF JzY THFN 940 
P(Ie6eJ)=P (1 J*+1)*P(I+1 J) 
GOTO 950 

P(I»J)zl1 

NEXT J 

X5zA51 

NEXT I 

м=22 

FOR 15Υ TO X4e1 STEP =] 
FOR Jal To Ze 

TF Js] THEN 1050 

IF IsY THEN 1050 
P(IsJ)zP(TIosJ-1) 981519.) 
GOTO 1960 

P(I e J)=z1 

NEAT J 

20:22-41 

NEAT I 

N2Z3 

FOR I=Y TO Nel STEP οἱ 
FUR JsY TO Z3*1 STEP =} 
IF JsY ΤΗΕΝ 1160 

IF I=Y TREN 1140 
PllTeu)sk(TeleJ) eh (Teel) 
5010 1170 

P(Teuvdel 

NEXT J 

23223] 

NEXT I 

GOTC 350 

ΕΝΩ 
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LOVE THAT PRINTER GRAPHICS 


You may input any message. The program will spell out “love” 
using your message as the background. For best results your mes- 
sage should be less than 60 characters. 


INPUT А$ 
LEN А$ 


FOR LOOP 


BREAK UP 
TEXT 


SET 
MARGIN TO 133 


USING READ 
AND DATA 
COMPUTE 

WHERE SPACES GO 


PRINT A 
LINE 
FOR LOOP 


Flowchart for Love that Printer Graphics 
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JAAD TAN TINO TAN TINO TAN TINO TINO 13^0 100 1300 T3A0 134071360 TANG 13091 


ID ΠΩ ΠΟ ΠΕ ΠΩ 13680 1736013080 1360 0360 THAD 1360 TIA THAAD T 
In 
in 


360136013680134071360713050136013507 
3607136013480 TINO 13650 3^0 1360 136071 Q1 
3650013650 1360 TAA 1360 1360 ΠΩ 13^ 360 136 
AAO TAINO TEMO TINO TAO THAT 1360 TAA 360 TAA 
1^0 1: | 3650138013650 1360 13601360 136071 0360 135071 
а е ата 3^6013^013650136013650 13650136507 ΟΠΛΟ 146071 
TAQ 1360 1300 13601300 136507136 Πο Πο 13007136 
3n 365013650 TIAN TAN 13600713600 TAA JAQTA THAD 13^ 
1360 13601 3^0 TAA TSAO 1360 1360 136071 0713071360 1360 7136071 
3^0 0350 1 ΟΠ ΠΩ 1360713001360 1360071 O01360 360 073607136071 
ОЛЕНИ” Φα 3607136071360 13680130 3007134071360 7136071360 TAA 
3607136071360 THAD 1300 TAA 3^01360 ΠΩ ΠΩ TAA TAA 
3^0 13650 1360071350 13607 πα Πα TIAN THAAD 13601365071 
OTA 136071 
ODHAD THAO T 


AAU TEE 
1360 1 


ЖЕКЕ 
300 


1А | DAAC TAAT THAO TAAG T 
Io tan BOG LAAL HAQ 135071 
АН 1. ТІЛШЕ ΠΩ 013607 T3007 1300136013607 TAAR 
ОАА 07 T3 
OA TAO 1360 TAN τὰ 
aed Tani THAU 1360 1306071 Г 
? [ DAT 1360 1360 0350 1365071 0 
I^ü T3607 HARTIA TAADTAAD TAA TAA 07 
16807136071 DAD SAD TAA TAAL 1360/71 ЖЖ 
140 136071 ano TAQ 143650 136501350130 Q 
3 
d 


oCr4601360713601300 13601300 13600 1360 T3501 
Πα 1340713607136 0 13650 13680 1360 1300 360 1 
190 136013601360 1360071360 1360 THAD T3680 136071 
ΠΩ 136013650 ^50 13650713650 13650 1340 T3600 TAND 
3^hQ0136013401360 1360 136013650 1360 1360 1360 1 
^0T736013650713607130^n0713650 1350 1360 1350136071 
NOOA зарита ото 


] 
de 
1 
1 


IARD 130071 CMAN 1360 1360 1360 1365071 ü 
140 136507 ПАО 1360 THAD THAD 13^ E 
180 1365071 SAQA TAA TAA) o : 
TAQ Πρ TAA Ωω πας 1305071 3^071360 1360 3A0 1300-1340 1360-1340 TIAN TAINO 136071 
1^0 13650 13507 QOT3^A013650 1360 1360 1300 136071360 1360 ΠΩ 1360 136071 
TQ 713460 THAO THAD) ἡ ποσο TIAN 71365013650 1360 1360 1360 1360 136071360 T3650 136 
140 T3650 T3650 13650 1300 THAAD TAO TIAN TAINO 134071360 13650 1360713601360 1360 1360 1360 TAN 

140 T3650 1300 1368071360 TAAL ΠΩ ΠΩ 1360 71360 1360 TAAD T3460 1368071360 713650 1360 71360 1360 13680 1360 E360 1360 1360 136071 


E 
Я 


1 
1 
E 


uny ajdwes 


3650136501360136071340 13650 TAA 013601360 TINO 1360 1360 1 
Πο πο 1360 13650 1300 13607136 01360 1360 7136071360 13607 
365013650 TAINO TAN 136507 
3^0 13^0 1360713001307 


QT365013^0713013^07 

ΟΠΛΟ 1350136013601 

360 1365013607130 
3^0 1360713650 136507 
ü 1360 1360 7136071 

0 360 THAD TAAA T 

360 1360 1300 1 

ΠΩ ΤΠ ΠΑΩ 

OWA 136071 
DAAT] 

Πο 136071 

07 

07 

01 

07 

“ΠΏ ΠΛΩ 

AAD TAQ 
SANTA 

360 135071 

SAND 1360071 

SAO THAD 
ο. 


36013403 

365071365071 

ANOVA 

360 ΠΩ] 

360130071 

0713601 

07 

AAO T360 1360 7135071360 


3601 


πρ] 


179 


Program Listing 


10 REM LOVE 

#0 REM КТ APRIL 1978 

30 DIM [$ (240) 

40 INPUT AS 

50 L2LEN(AS) 

60 FOR Jad TO INT(120/L) 

70 FOR 151 TOL 

80 TS UML +I)=SUBSTR(AS [I 1) 

90 NEAT] 

100 NEXT J 

110 MARGIN 133 

120 Сабо 

130 Aleks} 

190 ζσζο] 

150 IF C23? TREN 00430 

160 РКК! 

170 REAC А 

180 Az2%A 

190 А] =А | А 
200 IF Ρε] THEN 00260 
210 РОН із! TO А 

220 PRIMI ni 

230 NEAT I 

240 +=] 

250 GO Tu 00300 

260 FOR ізА1"А ТО А} =] 

270 PRINT T$(1)8 

280 NEAT I 

250 Р=0 

300 IF А1>120 THEN 00130 

310 GO То 00170 

320 DATA 60*1412»265«9»*12*3«B 26.175846. Q3»21 604 6 22 612 59695 
330 DATA 4,6%»21%11%8»6%94»4»%6%21%1091045%0%096»2199911%5%4»94»6»21»8 
340 DATA 11%6,60:%4»6.%21.7%411»%7%4:%4,6»21»9)6.4119890»%09»6%19,191»5%11»9 
350 DATA 4,466. 191 1.56.10.10 4,466. 18.2.1] 66 68 1166666176 3515765 
360 DATA 13%%4,0%6»15%45%2%23%5;1%2995»17»98»1»29.5»991291913%5940,1 
370 DATA 1.13,5».40%1».9%5%13%3%10%6»912%591»596»911»93911.6,%1433»91»5 
380 DATA 6.11.3911»6%15%291%5»65»9%3%12%6%169191%696»9993612%69791 
390 DATA 10%7,6»7%3%13%6%6,2%1097%65%7%3%13%104%.10»8,6»5%3914»6,6%2 
400 DATA 10%8,6%5%3»910968%7%1%10»%9,6%3%39156%16»91»91%9»96»93%3915%»6915 
410 САТА 2, 1.10.6] 3.16616 361.106 10 е 16.6. 129.561] 1 8.13.2751 .11.8 
“20 DATA 1352791960 

230 FUR jal TO 25 
640 РКІМІ 
450 NEXT J 
GEO STOP 
470 ΡΕΝΩ 
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Section Il 
| Programs For 
TRS-80 and РЕТ® Сотрщег$ 


Е а 


This section contains programs written specifically for the Radio 
Shack TRS-80 computer using Level II BASIC. Program listings are 
included for 12 of the games found in Section L. Some programs were 


completely rewritten. For instance, Computerized Hangman now 
includes a graphic display as well as twice as many vocabulary words. 


Some of the other programs will run with no modifications. In 
general, none of the three plotting routines, Plot Your 4 Equaitons, 
Plot Your 10 Equations, or Polar Graphic Subroutine should be used 
ona TRS-80. This is because of problems with screen size, scrolling, 
and execution time. 

You will need Level II BASIC and 8K of memory. The program 
Star Warp needs 16K of memory. 

Most of the programs in this book will run on the Commodore 
PETÓ however, some conversion may be required. Before keying 
in one of the programs, examine the listings carefully. If two listings 
are shown for the same program, determine which listing more 
closely resembles the РЕТФВАСІС. In most cases, this will be the 
listing in Section I of this book. Section II contains listings in TRS-80 
BASIC. If you desire to convert the TRS-80 version to your РЕТ® 
there are several important differences you should be aware ot. 


ο Video screen size for the TRS-80 is 64 characters by 16 
lines. 

e TRS-80 Level П BASIC allows up to 256 characters in a 
single instruction. 

ο Several TRS-80 instructions do not have an equivalent in 
PETOBASIC (such as DEFINT, DEFDBL, DEFSTR, and 
PRINT Q). 

* Video display graphics are handled completely differently. 
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The following is а list of TRS-80 instructions along with their 
PET®equivalents. This should give you an idea of some of the subtle 


differences between the two. 


TRS-80 PET 
CLS PRINTO 
RND(X) INT(X*RND(0) + .1) 
A$ = INKEY$ GET A$ 
PRINT TAP 6) A PRINT ТАВ(5); А 


КОК I = 1 TO 5: NEXT ЕОКІ = 1ТО 5: NEXT I 


NEXT K,L 


NEXT K: NEXT L 


Cursor movement is also handled differently on the two 
machines. On the TRS-80 the PRINT @command is used to position 
the cursor at an absolute location on the screen. Position 0 is in the 
upper left-hand corner and position 1023 is the lower left. For 
example, PRINT 064, “HI THERE" would cause HI THERE to 
appear, starting in the first character position of the second line of 
the display. Other cursor movement is done using the PRINT 
command with a CHR$ operand. For example, PRINT CHR$(28) 
causes the cursor to return to position 0. Other values which may be 
used, along with their functions, are in the following table: 


PRINT (8) 
CHR$ (13) 
(14) 


(15) 
(23) 


PRINT (24) 
CHR$ (25) 
(26) 
(27) 
(28) 
(29) 
(30) 
(31) 
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Backspace and erase current character 
Carriage return 

Turn on cursor (The cursor on the TRS-80 is the 
underscore (--).) 

Turn off cursor 

Convert to 32 character mode (all characters 
become twice their normal size) 

Move cursor one position left 

Move cursor one position right 

Move cursor one line down 

Move cursor one line up 

Return cursor to position 0 

Move cursor to beginning of line 

Erase to end of line 

Erase to end of screen 


WUNPUS 


Program Listing 


18 REM HUNT THE WUMPIIS 

20 RRNDOM 

38 DIM Р(5) 

da PRINT’ INSTRUCTIONS? (Y-N)"; 

Bh INPUT I$ 

ӨЙ IF [$z"N" THEN 38 

78 GOSUB 648 

98 CLS: DIM 5620,15 

38 FOR 1=11028 

184 FOR K=1TO2 

119 READ SOI K 

128 NEST К, J 

138 DATA 2.5, 8,1, 518,2, 4, 12: 5; 5; 14,1, 4,6 
149 DATA 9, г, 15.6, $ 12, 75, 3,8. 18, 18, 2,9, 44 
198 DATA 18, 12, 19, 3,11, 12, 12, 14, 28,4, 12, 15, 5. 14,16 
158 DATA 15, 17, 28, 2,16, 13, 9, 17, 19, 11. 18, 28, 15, 16, 19 
178 РЕМ LOCATE L ARRAY ITEMS 

158 SEM l=YQU, 2-MUMPUS. 24-РТТ5, S&6=BRTS 
i38 DIM 146) 

208 DIM Mie) 

218 FOR J-1TO6 

220 БЕН 

238 МОЕ 

248 NEXT J 

258 REM CHECK FOR CROSSOVERS 

268 FOR J=1T06 

era FOR ΚΞΙΤΠΕ 

288 IF J=K THEM 388 

298 IF Сш КУ THEN 218 

384 NEXT К 

240 NEXT J 

τομ REM SET ARROWS 

228 ARS 

i48 115111) 

358 REM RUN THE GAME 

268 PRINTTABCSE "HUNT THE idMPUS" 

S70 PRINTTHECORO eee á 

188 REM HAZARD WARNINGS AND LOCATIONS 

238 00508 1188 

488 РЕМ MOVE OR 2-007 

418 GOSUE 1258 

420 IF Q=2 THEN 478 
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438 GOSUB 1240 

448 IF F=Ü THEN 539 

450 СОТО 434 

ABE Ret МГ ἐς 

478 GOSUB 1549 

428 IF Ғай THEN 33 

494 IF FB THEN | 

909. REM LOSE 

510 PDTNT"DUMMU. YOU LOSE, MET! TET DONE VOU 1 1 τη 

528 GOTO 560 

336 КЕМ WIN 

548 ΡΕΙΝΤ"ΟΚΗΥ, HOT-SHOT. THE WUMPII WILL GET THEIR REVENGE. " 

358 PRINT"HUMPII SPIRITS WILL HAUNT YOU TIL THEN. " 

368 FOR J=1T06 

578 ЦЕ 

988 NEXT J 

398 РКІНТ"ОЯМЕ SET UP? (V-N)"; 

608 INPUT 1$ 

618 (15 

620 IF 1ἑΟ"Υ" THEN 218 

638 GOTO 3:8 

648 REM INSTRUCTIONS 

658 PRINT'MELCOME ТО “HUNT THE WUMPUS. “" 

668 PRINT:PRINT' THE WUMPUS LIVES IN R CAYE OF 28 ROOMS. EACH ROOM" 
670 PRINT'HRS 3 TUNNELS LEADING INTO OTHER ROOMS. “LOOK AT A" 

688 PRINT"DUODECRHEDRON TO SEE HOW THIS WORKS -- IF YOU DON’T KNOW" 
698 PRINT"HHAT Я DUODECRHEDRON 15, ASK SOMEONE >" 

708 PRINT: PRINT"HAZARDS" 

718 PRINT"* BOTTOMLESS PITS 

728 PRINT" THERE ARE TWO OF THESE. FALL INTO ONE OF THEM" 

738 PRINT" AND YOU HILL LAND IN CHINA." 

748 PRINT"* SUPER-BRTS 

758 PRINT" TWO OTHER ROOMS HAVE SUPER-BATS. IF YOU GO THERE." 
768 PRINT" A BAT GRABS YOU AND TRKES YOU TO SOME OTHER ROOM AT" 
778 PRINT" RANDOM (WHICH MIGHT BE TROUBLESOME). " 

788 INPUT"PRESS ENTER TO CONTINUE"; I$ 

798 CLS:PRINT:PRINT"THE WUMPLIS =" 

gea PRINT.PRINT" ΤΗΕ UMPUS 15 NOT BOTHERED BY THE HAZARDS (HE HRS" 
918 PRINT'SUCKER FEET AND 15 700 BiG FOR ἢ BAT TO LIFT). USUALLY" 
328 PRINT"HE 15 ASLEEP. TWO THINGS WAKE HIM UP: YOUR ENTERING” 
938 ΡΕΙΝΤ"ΗΙ5 ROOM OR YOUR SHOOTING AN ARROW. " 

840 PRINT.PRINT' IF THE HUMPUS WAKES, HE MOVES (752 CHANCE» ONE ROOM” 
9850 PRINT"OR STAYS STILL (25% CHANCE). AFTER THAT. IF HE 15 WHERE" 
358 PRINT'TOU ARE, HE ERTS YOU ЦР CAND, BOY: DO VOD LOSE!). 

978 PRINT: INPUT"PRESS ENTER TO CONTINUE"; I$ 

890 CLS:PRINT:PRINT"TQU - 
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890 PRINT:.PRINT" EACH TURN, YOU MAY MOVE OR SHOOT Я CROCKED ARROW. " 
304 PRINT:PRINT'* MOVING" 
918 PRINT" YOU CAN GO ONE ROOM ¿THROUGH ONE TUNNEL. " 
328 PRINT: PRINT"* ARROWS" 
3:8 PRINT" YOU HAVE S ARROWS. YOU LOSE WHEN YOU RUN QUT." 
348 PRINT" EACH ЗЕНОН СЯН GG FROM 1 TO S ROOMS. YOU AIM ВУ" 
358 PRINT" TELLING THE COMPUTER THE ROOMS? VOU WANT THE ARROW” 
368 PRINT" TO GO. IF THE ARROW CAN'T GO THAT WAY (I.E. №" 
378 PRINT" TUNNEL) IT MOVES AT RANDOM TO THE NEXT ROOM " 
388 PRINT" IF THE SRROM HITS THE WUMPUS, YOU WIN. " 
338 PRINT" IF THE ARROW HITS 900, YOU LOSE. " 
1488 INPUT"PRESZ ENTER TO CONTINUE; 1$ 
1818 CLS:PRINT:PRINT"WARNINGS =" 
1820 PRINT:PRINT" WHEN YOU ARE ONE ROOM AWAY FROM THE WUMPUS OR HAZARD, " 
1938 PRINT'THE COMPUTER SRS:" 
1940 PRINT: PRINT" MMPS - ^I SMELL A NUMPUS"" 
185} PRINT" BAT - “BATS NEARBY" 
1868 PRINT" PIT - FEEL A DRAFT" 
1878 PRINT:PRINT:INPUT"PRESS ENTER TO BEGIN THE САМЕ": 1$ 
1989 CLS:PRINT 


1090 RETURN 
1190 REM PRINT LOCATION AND HAZARD WARNINGS 
1119 PRINT 


1120 FOR 1=2706 — 

1138 FOR K=41T02 

1148 IF SiL {1}, ή {1} THEN 1228 
1158 IF 153 QR J=4 THEN 1158 
1458 IF 155 OR 156 THEN 1218 
1178 PRINT"I SMELL Я WuMpUSI" 
4120 0070 1228 

1198 РКІНТ"І FEEL Я DRAFT!“ 

1298 GOTO 1229 

1218 PRINT"BRTS NEARBY!" 

1228 MEXT K 

1238 NEXT J 

1248 PRINT"YOU ARE IN ROOM ";L(1) 
1259 PRINT" TUNNELS LEAD TO "i SLL 5, SCL 2}, SCL 3) 
1268 PRINT 

1278 RETURN 

1288 REM CHOOSE OPTION 

1298 PRINT"SHOOT OR MOVE? (S-M)"; 
1380 INPUT 1$ 

1318 IF 1$="5" THEN 0-1: КЕТЕМ 
1320 IF I$z"M" THEN 0-2:RETURN 
13:0 GOTO 1290 

1340 REM ARROW ROUTINE 

1358 F=0 
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1368 REM ΡΗΤΗ OF ARROW 
1378 PRINT"NUMBER ОҒ ROOMS? 1-2)”; 
1388 INPUT 19 
1298 IF J941 QR 1355 THEN 1378 
1400 FOR K=1T0J3 
1418 PRINT"ROOM NUMBER"; 
1428 INPUT РЕК) 
1438 IF K<=2 THEN 1478 
1448 IF РОК) Ὁ PCK-2) THEN 1476 
1458 PRINT": ?"ARROWS ARE NOT SUPER MRGIC'--BE REALISTIC (RE-ENTER)"; 
1468 PRINT: GOTO 1418 
1478 NEXT K 
1490 REM SHOOT ARROW 
1498 LL=L CDD 
1388 FOR K=1T013 
1548 FOR Ki-1T03 
15208 IF SELL, KG zPEKO. THEN 1958 
1538 NEST K1 
1548 REM NO TUNNEL FOR ARRO 
1550 LLzS(L, BND) 
1569 GOTO 1658 
1570 NEXT К 
1589 PRINT"MISSED 
1538 [1 5ὶ OD) 
{ΕΠΑ REM MOVE WUMPUS 
1618 GÜSUB 1769 
1520 REM AMMO CHECK 
1538 Я=Я-1 
1548 IF R>ü THEN 1660 
1658 F--1 
1668 RETURN 
1678 REM SEE IF ARROW 15 RT 1540 OR Lizi 
4680 LLEPOOD 
1698 IF LL <> Lig? THEN 1158 
1788 PRINT"RHR' ‘YOU SOT THE NWUMPUS!" 
1718 F=1 
1728 RETURN 
1738 IF LL Ὁ LCD). THEN 1579 
1740 PRINT"QUCH ! ! ! THE ARROW GOT ҮШ!" 
1790 GATO 1658 

1768 REM MOVE MUMPUS ROUTINE 
1778 K-RNDCAS 
1788 IF Қай THEN 1566 
1730 LEDES K 
1309 IF LOCO OLL THEN 1830 

819 FRINT'WUMPUS GOT 78 ! ! 1 TURKEY |! 
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1520 F=-1 

1554 RETURN 

1548 REM MOVE ROUTINE 

1558 Ғ-й 

1868 PRINT"OKAY, WHERE TO МОИ"; 

1879 INPUT LL 

1889 IF LLC OR 11520 THEN 1968 

1398 FOR K-1T03 

1988 REM CHECK IF LEGRL MOVE 

1948 IF S(L(41y,Ky=LL THEN 1378 

1328 NEXT K 

19:8 IF На THEN 1278 

1948 PRINT"ARE YOU FOR REAL, THAT’S NOT POSSIBLE":PRIMT 
1958 GOTO 1868 

1364 REM CHECK FOR HAZARDS 

1378 11511 

1358 REM WUMPUS | 

1390 IF ШСМ (2). THEN 2868 

2080 PRINT"TURKET! YOU BUMPED INTO Я MUMPUS ! 1" 
2010 REM MOVE WUMPUS 

2468 GOSUB 1770 

2838 IF ΕΞΒ THEN 2060 

2048 RETURN 

2050 REM PIT о 

ӘЙЕЙ IF LLOL CS). AND 9449 THEN 2119 
2878 PRINT"R PIT ! ! ! CHINA, HERE YOU COME ! ! foi" 
28088 Ғ--1 

2930 RETURN 

2198 REM BATS 

2118 IF ЦА) AND κ £6». THEN 215 
2128 PRINT SUPER-BATS ! i ! GOOD LUCK i!” 
2128 LL-ENDC2ED 

2148 GOTO 1978 

2158 RETURN 

2168 END 
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SUB HUNT 


Program Listing 


18 REM THE GAME ОҒ SUB HUNT 

28 REM THE SUB HUNT IS PLRYED 

38 REM ON ἢ 10 X 10 GRID WITH 

40 REM THE ORIGIN ON ΤΗΕ LEFT 

58 REM TOP CORNER. 

58 REM THE X AXIS READS FROM 

74 REM 1 TO 18 GOING LEFT TO 

58 REM RIGHT, THE У AKIS READS 

90 REM FROM 1 TO 18 GOING 
108 REM FROM TOP TQ BOTTOM. THEREFORE 
118 REM COORDINATE 18,18 IS THE RIGHT, 
128 REM LOWER CORNER OF THE GRID 
138 РЕМ SUBS ARE CRAFTY, WATCH THEM 

140 REM CAREFULLY 

i36 CLS: PRINT 
158 PRINTIQB(SAF"S UB HUNT" 
178 PRINT:PRINT" WELCOME TO THE SAME DF SUB HUNT. THE ENEMY MAY BE" 
138 PRINT'LURKING ANYWHERE WITHIN THE GRID. Tü COMPLICATE FINDING" 
138 PRINT IT AND DESTROYING IT WITH DEPTH CHARGES. THE SUB CAN ALSO" 
288 PRINT'DIVE. DEPTH CHARGES MAY BE DROFPED ANYWHERE ON THE GRID. " 

- 218 PRINT'BUT THEY ARE NOT EFFECTIVE UNLESS THEY HAYE BEEN SET" 

228 PRINT'FOE THE RIGHT DEPTH. 
210 PRINT" SINCE THE SUB CAN GIVE Tü THE SER BOTTOM: DEPTH CHARGES" 
248 PRINT"MAY ALSO SE SET POR THIS DEPTH {A 15 THE SEA BOTTOM, " 
гой PRINT'HHILE 1 15 THE SURFACE OF THE SER. THE SUB'5 POSITION" 
ZEB PRINT'MILL BE UPDATED AFTER EACH MOVE. AS IT WAITS TO SEE WHAT" 
278 PRINTS POUR MOVE I5. THE SUB. BEING NUCLEAR POWERED. CAN STRE" 

238 PRINT'RT ANY DEPTH СОҚ ANY PERIOD OF TIME." 

290 PRINT:PRINT'PRESS ENTER TO CONTINUE’: : INPUT A$ 

SHG CLS PRINT PRINT’ Tü DESTROY THE SUB. ‘YOU MUST DROP THE DEPTH CHARGE" 
348 PRINT"NOT ONLY АТ THE RIGHT COORDINATES. BUT IT MUST BE FUSED" 
зей PRINT"FOR THE RIGHT DEPTH ІР MOT YOU HAYE WASTED Я DEPTH CHARGE. " 
220 PRINT" YOU HAVE Я DISADVANTAGE AND RN ADVANTAGE OVER THE SUB. " 
348 PRINT'THE DISADVANTAGE 15 YOURE LIMITED TO THE NUMBER ΠΕ DEPTH" 
iod PRINT'CHRRGES YOL HAVE (RT LEAST 156». THE ADVANTAGE 15 THAT THE" 
зей PRINT'SUB CAN ONLY MOVE ONE SQUARE AT A TIME, AND ALSO IT CAN" 
378 PRINT'MOVE UP OR DOWN ONE COORDINATE RT A TIME. ` 
338 PRINT:PRINT'GOOD LUCK, COMMANDER - PRESS ENTER TO BEGIN"; : INPUT 8% 
290 RANDOM 
448 REM 
419 КЕМ AMOUNT ӘР ГЕРТН CHARGES 
428 CizRNDO 11 715 
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438 CLO-PRINT:PRINT YOU, COMMANDER ARE AT COGRDINATES 1,1" 


448 PRINT 

458 РЕМ SET UP POSITION FOR SUB 
ДЕЙ ARD IGG ETRHDIISO D-ENDOLWO 
478 REM Я 15 THE X REIS 

424 REM В 15 THE Y axis 

jan REM D IC THE DEPTH 


— 


SOA REM SHIP^S STARTING COORDINATES 


35... 


558 FRINT'LOMMENDET, WHERE DD WE SAIL РОВ", 


She — 


сай IPIT XY 

5/8 REM TES Τ THAT 5.7 ARE МОТ OUT GF SOUNDS, 
508 TF ΚΘ BHD veel AND vow AND τὰ THEN САЙ 
зан DEA 1: 1 


+ 
i 3 


р Ги ερ 
к. EM a 
ша 
=. 

— 

+ 


41% 
A 
VA 9 
ped H 
м 

4 


528 РЕІНТ"СОММАМОЕР, WHRT SETTING FOR DEPTH CHARGES" 


648 PRINT"A SETTING OF 8 RELEASES NO CHARGES": 
558 INPUT C 

668 IF C-8 THEN 718 

578 IF СОЯ AND С<11 THEN 538 

588 PRINT COMMANDER, THE SUE 15 IM THE WATER. " 


2 
mmt tarpana ТТЕ oTi Tum cm fn ДАТИ mon 
eomm: HT I FF кен мақ. A ОР uiii == ο iia till πο ολ 
$ * } .. `> w +`: - - ++ сз «+ . ш» παν ! ж... LIB —- 1! - - - ` 


698 PRINT"NEITHER ABOVE THE SURFACE, NOR BELGH THE BOTTOM. " 


788 GOTO S28 
740 PRINT 
720 PRINT'THE SUE 15 ЯТ CODRDIHRTES:" 
?3B PRINT =": A. "у a"; E, ЗГЕРТН =";D 
748 REM NEM SUB POSITION 
798 RizRNDCS-2 BIRN: 21-2: D4-RNDCIÓ-Z 
ТЫЙ ASA+AL-IF Я & 1 THEM R-2 
ТҮЙ ТЕ AM@ THEN А=9 
8 БӘСІРЕ < 1 THEM 8=2 
P38 ІР Β}18 THEN B-3 
Bü р=р+01:1Е K1 THEM рег 
B IF Би THEN D=3 
8 GOTO 540 
IF x=R AND "=Ë AND 5-5 THEN 328 
PRINT:PRIHT"SORRV, COMMANDER, TOU MISSED" 


aT со my Ob» O3 - 
Lad Γη db 
= (9 кз 


358 Ci-Ci-1: TF Ciba THEN 718 
СЕЙ PRINT SORRY. COMMANDER: NO MORE DEPTH CHARGES. " 
— PRINT BETTER LUCK NEXT TIME ".PRINT 


55 


A PRINT"WOULD YOU LIKE Tü PLAY AGAIN YES - NOG"; 


-ТҢЕНТ AF 
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898 IF Ag="YES" THEN 488 


308 PRINT:PRINT"THE COMPUTER KNEH YOU WERE A LANDLUBRER ilin 


918 END 
928 PRINT 
338 PRINT"NELSON WOULD BE PROUD CF voi" 

348 PRINT "YOU GOT THE SUB it? 

358 PRINT'?QU STILL HAVE "01; " DEPTH CHARGES" PRINT 
368 GOTO 659 
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УМК THE BISMARK 


Program Listing 


18 RRNDOM 

28 REM ESTABLISH DISTANCE AT START OF GAME 

38 D=LBA0+RND (2000) 

48 REM NUMBER ΠΕ SHOTS FOR ENEMY 

З S=RND(25)+28 

68 REM YOUR SHOTS 

70 Si1-RND(2SO420 

an v-ü 

Эй E-8 

100 CLS: PRINT:PRINTTRBCZBO "DESTROYER" 

118 PRINTTRB(26D "---------" PRINT: PRINT 

128 PRINT"THIS IS THE GAME OF DESTROYER. BROTH YOUR VESSEL AND THAT" 

138 PRINT"üF THE ENEMY НАТЕ HIGH EXPLOSIVE SHELLS. YOUR MISSION" 

144 PRINT"IS TO SINK THE ENEMY WESSEL BEFORE IT CAN SINK YOU. " PRINT 

138 PRINT" THE NUMBER OF SHELLS FOR BOTH YOU AND THE ENEMY АВЕ" 

19Η PRINT"RANDOM, SUT BOTH SHIPS HAYE АТ LEAST 24 "- PRINT 

178 РКІКТ"ИІТН EACH TURN, YOU MAY МОЧЕ OR SHOOT. NOTE THAT SHELL 5" 

186 PRINT"ARE LESS EFFECTIVE THE FURTHER APART YOU ARE. "-РРІҢТ 

194 INPUT PRESS ENTER TO BEGIN"; 84 

538 CLS 

219 PRINT:PRINT'THE PRESENT DISTANCE 15 NOH"; D 

228 PRINT:FRINT"WHAT 15 YOUR COMMAND - MOVE ОР SHOOT GM’ OR 4556; 

228 INPUT ОГ IF CEN THEN 268 

248 ІР C#="5"* THEN 328 

290 PRINT:PRINT*YOU MUST ENTER ^M' OR δν; SOTO 

264 PRINT PRINT"Hüh FAR (7-0 = TOWARD, ^«^ = AMAR: 

279 ТАРТ 

z220 TF ΤΟΝ 151 ΠΕ 465101140 THEN 248 

238 FOR 151 TO S:CLS:FOR 11=1 TO 186: NEXT T1: :РЕТМТЕҢЕ 27 PRINT.PRINTTAE 
АТП ТЕТН i" 

i8B FOR 154 TO 1BB:HEXT I 

348 NEKT I 

328 CLS:PRINT:.PRIHT:PRINT"EQTH SHIFS ARE GOING DOWN 1 1 τ» 

i38 HE [=1 Τη ЗАВ NEXT 120070 320 

248 берін 

iod REM GET ENEMY SHOT 

ЗЕЙ FOR 151 TO ipa NEXT I 

ТҮЙ 525-1 

Soh IF 548 THEN FAG 

238 REM ü 15 TEMPORARY VARIABLE 

488 -RBSCIRNDCLED-INTGD/ 4882? 

МИ YaNA 


ize SINTANG 
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434 QN ü GOTO ἀπῇ, 528, 548, 570, 398, 648, 570. 568, 598. RH 


GOTO 468 


24 FOR ізі TO SA0 ΝΕΤ 1 

45 PSINT:PRINT"THE ENEMY HAS НОМ ONLY"; 5: "SHELLS LEFT" 
478 PRINT YOURE SHIP HRS": Si; "SHELLS LEFT" 

428 5070 218 


"m 
£ 


-Ε- 
ΚΝ; 


PRINT.PEINT"CAUTION, YOURE TAKII 
PRINTING SERIUS DAMAGE VET" 
GOTO 454 


48 GM MATER" 


у Ее аз 
D + 


іа ъс» rms 


28 PRINT:PRINT"THERE ARE Я FEM SMALL FIRES, © 
SA PRINT SUT THES ARD UNDET ο... ASH 


| см en ud nn 


48 PRINT.PRINT'VOU ARE LISTING TO PORT S DEGREES. " 

ЕВ PRINT'MATER LEVEL TS STILL ie DANGEROUS.” 

ЧЕЙ PRINT'CALTION -- FIRES ARE SPREADING!" GOTO 458 

STR PRINT PRINT"ENGINES ARE OVERHEATING aum THE SiL σε РР 

сор PRINT'SRE ACTING UP -- TAKING OM & LOT ΤῈ WATER NDS GOTO 458 
‘Зов PRINT-PRINT’MOST ПЕ YOUR CREW 15 SERIOUSLY А087, 

ТӨ POINT THE TIRES ASE APPROACHING THE АММО MAGAZINES. "3070 458 
zip PSINT-PRINT’THE LITE BOATS ARE BEING REBDCID УЖЕ στ 5 "OTT. 
558 FRINTOF THE CORRIDORS, BILGE PUMPS BRE πεῖς ТӘП ЖЕ GOTO 456 
Suh PRINT PRINT'UVUUR СРЕМ 15 ABANDONING SHIP. BILIE PUPPI S55 

EA PPINTCOMPLETELV GONE. ONE ENGINE HAS BURNED OUT. 

558 SOTO 458 

БЕЙ PRINT.PRINT"THE ENTIRE SHIP 15 BURNING AND 15° 

670 PRINT"LIZTING BADLY TO FORT." GOTO 458 

дар POINT.PRINT^SHE'Z GOING UNDER, CAPTAIN YEU MAY GET" 

cap PRINT"IM ONE OR TWO LAST SKITS "GOTO 458 

28 CLS FOR 151 TO SOR MENT L.PRINT.PRINT'THE ENEMY 15 RETREATING 
8 PRINT" POL HAVE MON THE BATTLE ! ι" 

728 PRINT:PRINT*YOU STILL HAD": SL: “SHELLS LEFT, CRETPON 

738 PRINT:PRINT'SINCE YOU АРЕ SUCH Я GREAT CAPTAIN, THE COMPUTER" 
74@ PRINT 'MANTS TO ENON TF ҮШ τ τῇ FIGHT ABRIN (SES ΠΡ ΝΠ 

758 INPUT L£ IF L$-"vES" THEN 2 

FEA PRINT:PRINT'OKAY, QUIT ШО ҮЙГЕ AHEAD" 

779 PRIMT.PRINT"THE COMPUTER SAYS "ICHRECHD: "GODD-BYE": CHE CO 
708 PRINT PRINT"THE ENEMY SAYS, ІНЕ А “THANE GODDNESE! O'U СНР) 
298 END 


DX 


PRINT:PRINT TOJ D 


D SETTE 


319 PRINT'HURRV. CAPTAIN! 


σι 


FOR 1-1 TO 1900: MEST I 


Lom 


ROGET INT 
IF pie E Ti 


THE LIFEBOAT 1" 
б MAKE ITH!" 


PRINT :FEINT"YOL LOST THIS TIME--DO YOU WANT” 
FRINT"TO ТЕТ RGRIN, CAPTAIN ¿YES OR М0)”; 


840 Ез 
858 INPUT L#. IF L$="YES" THEN 838 


68 PRINT:PRINT"HRD ENGUGH, НИН?" 
676 END 
880 PRINT:PRINT"GODD! 


THE COMPUTER I5 НАРРУ TO SEE YOU НАЗЕ" 
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498 PRINT'FIGHTING SPIRIT” 

308 FOR Ізі TO 15980 :NEZT I 

818 GOTO 38 

«28 ТЕ 5138 THEN 51-5i-1.G070 368 

338 CLS:PRINT:PRINT"SORRV, CAPTAIN, YOU HAYE № MORE SHELLS." 

948 PRIHT"EETTER RETREAT Tü PORT. BETTER LUCK NEXT TIME " 

90 GOTO 838 

960 REM Q 15 A TEMPORARY VARIABLE 

970 G-RESORNDCIBD-INTiD/ 4805) 

-30 E=E+0 

990 Ә-ІНТЧЕ/10) 

1988 ОМ ἢ GOTO 1878, 1838, 1115, 1148, 1158, 1128, 1288. 12:8, 1208, 1948 
«48 CLS:PRINT:PRINT"THE ENEMY IS TAKING ON WATER. " 

1820 PRINT"THERE SEEMS TO BE SOME SMOKE " 

1030 GOTO 250 

-948 CLS:PRINT:PRINT'CONGERDULRTIQNS, CAPTAIN VOU НАТЕ SUNK THE" 
1850 PRINT'ENEM? SHIP ! !" 

1968 GOTO 720 

„478 CLS:PRINT"THE ENEMY SHIP Is LOSING GROUND " 

1080 PRINT'RLRERD? THERE ARE SMALL FIRES. ":GOTO 350 

1838 CLS:PRINT:PRINT"LOOKS LIKE SOME ОҒ THE ENEMYS CREW" 

«40A PRINT'IS TAKING TO THE LIFE BOATS. CAPTAIN. ": GOTO 358 

1118 CLS:PRINT:PRINT"CAPTRIN, THE RADIO ROOM HRS PICKED UP A TRANSMISSION" 
1428 PRINT"FROM THE ENEMY--THEY ARE TAKING ON HATER, " 

«38 GOTO 350 

1148 CLS:PRINT:PRINT"THE FIRES ON THE ENEMY SHIP SEEM TO ВЕ" 

1158 PRINT"SPRERDING, CAPTAIN. ":GOTO 358 

-.68 CLS:PRINT:PRINT"THE ENEMY SHIP IS STARTING TO LIST. CAPTAIN. " 
1178 PRINT"HER BILGES MUST BE ИТ!" GOTO 358 

1188 CLS:PRINT:PRINT"THE ENEMY SHIP 15 LISTING BADLY'--SHE CRN T" 
4498 PRINT"LAST MUCH LONGER. KEEP IT UP, CAPTAIN. ":GOTO 350 
1200 CLS:PRINT:PRINT"THE ENEMYS ENGINES MUST BE QUT, CAPTAIN. " 
1218 PRINT"SHE’S NOT MANUEVERING, BUT SHE^S STILL FIRING AT US.” 
-.δ0 GOTO 358 

1238 CLS:PRINT:PRINT"IT LOOKS LIKE THE ENEMY IS ABANDONING SHIP." 
1248 PRINT"PQUR IT ON, CAPTAIN. "GOTO 358 

2-58 CLS:PRINT:PRINT"SHE’S GOING DOWN, CAPTAIN. 1 THINK THE" 
1268 PRINT'ENEMV HAS HAD IT THIS TIME. ":GOTO 350 
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MOUSE HUNT 
Program Listing 
100 REM CHANGE B MOLISE 
154 CLS:PRINT: PRINT 
208 PRINT"THIS PROGRAM ALLOWS YOU TO GO QN A MOUSE HUNT" 
300 PRINT"FOR A YER? OBNOXIOUS MOUSE. " 
498 PRINT"THE MOUSE TRIES TO DODGE YOU BY HOPPING" 
388 PRINT"RANDOMLY. " 
608 PRINT"VOU CAN CATCH IT BY BEING WHERE THE MOLISE LANDS. " 
788 PRINT" YOU CAN CHANGE DIRECTION, TOL ° 
ВИЙ PRINT: RANDOM 
300 Т-РНрі 1003-1008 
1148 РЕТНТ"УОЦ HAYE TO GET WITHIN"; T; "FEET OF THE MOUSE TO “КЕТЕН” IT." 
1208 Т-ТжТ 
1200 REM SET UP THE LOCATIONS SND SPEEDS 
n REM TO "KETCH" THE MOLISE 
1584 REM YOU ARE THE FOX 
1680 Ri-RNDCÓIG нА 
1708 R2-CIMTCRNDCOD E28, 5)+1 уж 
1300 Ki-ENDCOU 
1988 K2-RHDCEO 
гай IP ΕΙ 5 THEN 2388 
2100 Ki--1 
2288 GOTO 2488 
2:98 ΕΞ 
2400 IP К25 5 THEN z7ü8à 
2508 Ke=4 
2600 GOTO 2588 
2798 K2z-1 
ЗИ D1-RNDCABEO i88 
2200 ül-üi«K] 
SHAE gocRNDOJABO i88 
1109 02-0242 
EAR IF 02-й OR G4=8 THEN 1804 
i380 02-8: 04-8 
3480 PRINT:INPUT"PRESS ENTER Tü BEGIN"; A$ 
IIA CLS PRINTIPRINT"HOP SIZES" "DR MOUSE": R1. "YOUSEE" R2 
ERG PRINT 
ΞΘ PEINT"THE COMPUTER SAYS: I WISH YOU GREAT FORTUNE IN YOUR ENDERVDE" 
3880 PRINT"FROM THE MOUS SE: DROP DERD - TURKEY" 
2900 PRINT"FROM THE COMPUTER: KEEP IT CLEAN. BOYS" 
4400 PRINT 
4148 Р1=2 141532547130 


42080 Ki-1 
4288 21z(02-0p«CcOi-OdoerQ4- Doo ed 075 
4488 РЕМ 


4544 REM PRINT A CYCLE 
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4508 REM 
4704 PRINT 
4504 PRINT'TRV $", КЗ 
4988 PRINT"THE MOUSE IS"; 598524); "FEET AWAY” 
3808 PRINT"AT LOCATION ";01;" BV "2 
9188 Di-RNDCSSSD 
5288 TF 2122T THEN SAAR 
S388 PRINT"RND TOOK OFF AT AN ANGLE OF ";D1; "DEGREES" 
2488 PRINT"YGU ARE AT LOCATION ";üs" BY "04 
2688 IF 21»2«T THEN 5200 
2708 IF 24>7 THEN 6400 
РУ OLS:PRINT- PRINT 
gana PRINT"SPLAT ! ! i" 
3388 PRINT YOU GOT IT ! i" 
GOHA PRINT"BOY, WHAT Я MESS - SQUASHED MOUSE EVERYWHERE" 
pipa GOTO 5888 
5208 PRINT" (Mil THAT HURTS = YORE НОТ ЕЗЕН CLOSE" 
БИЙ GOTO SAG 
6400 PRINT'MISSED AGAIN - BUT PRETTY CLOSE" 
6568 PRINT"WHAT DIRECTION DO YOU WISH TO JUMP"; 
6588 INPUT 02 
IF (22-8 ANP TEE THEN Tune 
PRINT"BETHEEN ἃ AND 368 DEGREES ONLY" 
GOTO 6588 
B üs-Riscsii «Pi AAA 
1йй Бес МІжбіМбіжР1)/400 
7200 ür?-R2«COS гар 188 
ТИЙ GS-RZASINCD2«PA) 488 
тайи Di-?1 
foa C2-274 
7608 FOR I-1 TO 189 
Fraa Π1Ξ(Η 55 
7888 82-02-06 
РАЙ Q:z0:407 
SARA Π4-Π44155 
8400 Г2-(03-0і hE 0 3404-09 ki 94-02 3 
S208 IF C2oCi THEN 84886 
GIAA D1z02 
e480 NEXT 
aem Е-Е 
aram GOTO 4599 
SSAA PRINT YOU ТООК". КЗ; "TRIES TO ‘KETCHUP?’ THE MOUSE" 
BSAA PRINT"HAHT TO TRY AGAIN? YESH. 
ЗОРЯ INPUT A$ 
3180 TF Ag="YES" THEN 388 
зави ТЕ R$COO"NO" THEN 3388 
4:44 END 


ον tT 
4 


Өз mo 
D 
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CAPTURE THE ALIEN 


Program Listing 
18 REM LETS CAPTURE ЯМ ENEMY VESSEL 
20 REM INSTEAD OF DESTROYING HIM 
38 RANDOM: CLS 
48 DIM ВЯ, 10) 
58 PRINT:PRINT"ENTER YOUR NAME FOR THE LOG, SIR"; INPUTR$ 
БВ 5=25 
ΤΑ PRINT:PRINT"DG YOU WANT INSTRUCTIONS, COMMANDER "3 A$: : INPUTCS 
34 IF СҰС ТЕО" THEN 200 
98 CLS:PRINT:PRINT"YOU MISSION, COMMANDER ": A$: ", IS TO CAPTURE ЯМ" 
498 PRINT"ENEMY BATTLE CRUISER. YOU MUST NOT DESTROY THE ENEMY ==" 
118 PRINT"vOU MUST TAKE HIM ALIVE. TO EFFECT CAPTURE. YOU MUST" 
120 PRINT"DESTROY ALL OF THE REGIONS SURROUNDING THE ENEMY VESSEL. " 
138 PRINT"THE ONBOARD COMPUTER WILL KEEP YOU UP-TO-DATE ON THE" 
148 PRINT"ENEMY’S LAST POSITION. " 
158 PRINT:PRINT"THESE 15 ALSO A PROTECTED AREA USING THE AREAS WHERE" 
168 PRINT"X = 9 OR Y = 3, 50 THAT THE ALIEN HAS A CHANCE. IF YOU" 
178 PRINT"FIRE INTO THIS REGION, ІТ 15 THE SAME AS FIRING INTO А" 
188 PRINT"PREVIQUSLT DESTROYED AREA. ":PRINT:PRINT"GOOD LUCK, COMMANDER. " 
198 PRINT: INPUT"PRESS ENTER Tü BEGIN": BS 
200 CLS:PRINT:PRINT"COMMANDER ":R$;". YOU HAVE 25 SHOTS." 
218 FOR x=8T01@ 
228 FOR Ү-0Т7010 
238 (ҚҰ, WE RLA: ἈλΞ-1: OY, й)=-1 
248 Β(18, А9--1:007,109--1 
298 NEAT Т, 4 
268 «ΞΕΝΟ 1-1 VZRNDCIEO -1 
270 PRINT:PRINT"ENEMY^S LAST KNOWN POSITION -- SECTOR"; E; ", "5 
288 IF 5<=@ТНЕҢ?4@ 
298 С-х 
200 ΒΞΕΝΡΕΞ-2;: ΧΞΑΗΗ͂: IF КС OR X29 THEN Х=С:60Т0 290 
210 D=¥ 
328 B-RNDi-2:V-Y«R: IP TCG OR 929 THEN Т-р:0070 318 
338 IF 059, 302-1 THEN XC: =D: 6070298 
ЗАЙ IF Х=С AND D-Y THEN 298 
398 PRINT: PRINT" 8 {i 2 34 56 7 8 3 
250 FOR Н-йТ09 
370 PRINTR; 
388 FOR В=8Т03 
398 IF 0А, Β}Ξ0 THEN PRINT" x"; ELSE PRINT" — "j 
488 NEXT B 
418 IF А=4 THEN PRINTTRBCAGD"LRST KNOWN POSITION"; 
428 IF А=5 THEN PRINTTRBCAZO "SECTOR": C; "2 "; Dj 
4:8 PRINT 
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448 NEAT A 
458 B-RNDCIB):IP Ro4 THEN 328 
468 PRINT"COMMRNDER ":Ri;^, YOU HAYE BEEN ATTACKED" 
47@ PRIMT"ENERGY USED Tü REPLENISH SHIELDS. " 
488 5-5-1 
438 IF 54-8 THEN 748 
388 PRINT'ONLY"; S; "SHOTS REMAINING" 
548 GOTO 554 
зой R-RMDGOIED:IP RCS THEN 388 
558 R=RND010-1:B=RHD0185:-1 
— IF Н=к AND B= THEN 539 
554 IF 0:8, Яу=-1 THEN 548 
568 OCB, А?=-1 
ЭРА PRINT"NOvR 15 SECTOR"; Я; ", "Б 
388 PRINT:PRINT"ENTER YOL PHASER SHOT (X, Y; 
зай INPUT А, В 
688 IF R23 OR БУЗ THEN 388 


Бай IF Вех AND ΕΞΥ THEN 778 
өй IF ¢8: pas THEN 328 


E FOR η ПАН 
&aB FOR В=т-1 TQ 7+1 


678 IF R-X AND Беу THEN 698 

680 IF QEB, 22-1 THEN 2? 

638 NEXT В, Я 

ТИЙ PRINT"GOOD SHOW. COMMANDER ": A$: " -- 

?18 PRINT'YOU HAYE CAPTURED THE ALIEN ENEMY AND YOU STILL" 
Τ28 PRINT"HRVE"; 5; "SHOTS REMAINING. " 

258 END 


748 PRINT COMMANDER "; Ag 

750 PRINT"YOU HAYE NO MORE ENERGY FOR PHASERS. " 
FER GOTO She 

770 PRINT"COMMANDER ";R$ 

72A ο... 7B E EXER ju 8 THIS TIME" 


ий PRINT WELL: БЕТТЕК | L UK E Т TIME " 

318 END 

бей PRINT'COMMRHDER 483% 

530 PRINT"GOOD SHOT! YOU FIRED RT A PREVIOUSLY DESTROTED RRER!" 
548 PRINT" TURKEY!" 

Saa 0070 228 
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STAR WARP 


Program Listing 


18 REM SPRCE 
28 RANDOM 
38 (15 
48 DIM N$(5), 0%(24), 28(2140, L$¢B), R$(4), K$(3), TO) 
S8 FOR I-1T09:RERDLSCI) NEXT 
68 DATA GAMMA 7,RLPHR CENTAURI, SIRIUS 12, BETEGEUSE 7, SOL 2, ANTARES 9, RLDERERRRN, ANDROMEDA 
78 FORICATOS: RERDNECD NEXT 
88 DATA ENTERPRISE, EXCRL ТВЕР, DEF IANT, EXETER, ENTERPRISE 
99 FORI=1T03:READK$< 1) :NEXT 
198 DATA KLINGON, КОМА ЯН, ALIEN 
110 FORI=1T04: READRS( 1) NEXT 
129 DATA CTHULU QUARK, CLIRNIP, ROTOP 
138 FORT=1705:READTS(1) NEXT 
148 DATA KLEEK, RYJKA, DYSNIP, JOJLM, THEEL 
158 FORI=11024 :READOS< 1) NEXT 
168 DATA RANGE AND BEARING OF THE ENEMY 
178 DATA FIRE FORWARD PHASER BANK 
189 DATA FIRE REAR PHASER BANK 
198 DATA FIRE FORWARD PHOTON TORPEDOES 
208 DATA FIRE REAR PHOTON TORPEDOES 
248 DATA LAUNCH RNTI-MRTTER PROBE 
229 DATA COME UP ON THE ENEMY VESSEL 
238 DATA RETREAT FROM THE ENEMY 
248 DATA APPROACH ENEMY AT WARP SPEED 
258 DATA RETREAT AT TOP WARP SPEED 
268 DATA "USE OPTIMUM SHIELD DEPLOYMENT, М. SULI" 
278 DATA "TURN US ABOUT 189 DEGREES. MR. SULU" 
288 DATA "MR. SPOCK, WHAT ARE OUR CHANCES OF ñ HIT?" 
298 DATA "NR. SPOCK, WHAT OPTIONS ARE AVAILABLE?" 
398 DATA "MR. SPOCK, FULL DAMAGE REPORT" 
310 DATA "LIEUTENANT, OPEN Я VOICE CHANNEL TO STAR FLEET" 
328 DATA "LET'S WAIT, WHAT WILL THE ENEMY DO NEXT?" 
338 DATA ACTIVATE COMPUTER DESTRUCT SEQUENCE 
348 DATA "LIEUTENANT, ОРЕМ A VOICE CHANNEL TO THE ENEMY" 
358 DATA "TURN 98 DEGREES TO PORT, MR. CHEKOV" 
368 DATA "TURN 38 DEGREES TO STARBOARD. MR. CHEKOV" 
179 FORI=1T024:RERDZ$(I) :NEXT 
388 DATA RANGE. РНЯЗЕР, PHASER. TORPF. TORPR, PROBE, CLOSE, ANAY 
398 DATA PURSE. ESCAPE, SHIELDS, ROTATE, CHANCES: COMMANDS 
408 DATA DAMAGE, BLUFF, WAIT, SUICIDE. SURRENDER, L VEER, RYEER 
418 PRINT:S$-NSCRNDCSD) 
428 PRINT"SPRCE. THE FINAL FRONTIER..." 
439 PRINT"THIS 15 THE VOYAGE OF THE STARSHIP ";S&;". IT’S FINE" 
448 PRINT'VERR MISSION, TO EXPLORE STRANGE МЕИ WORLDS, TO SEEK" 
450 PRINT ‘CUT МЕИ LIFE AND МЕН CIVILIZATIONS, TO BOLDLY 50 WHERE" 
468 FRINT'NO MAN HAS GONE BEFORE " 
478 PRINT:PRINT:PRINT.FORI-LTOI080. NEXT 
488 PRINT"YEOMAN. ": TRE/100"SIP. ENTER YOUR NAME FOR THE LOG"; : INPUT C$ 
430 PRINT 
S8 PRINT" SPOCK." TARE) QU ARE IN COMMEND OF THE "5%". CAPTAIN "0$, ". " 
54 PRINTTRBC18D"20 YOU WISH Я LIST CF POSSIBLE COMMANDS. SIR"; INPUT AS 
538 PRINT:ESSK(ENDOID2 FESRECRNDGDO ЕТОМ DESL pe PND(B Yee RNDCUO-, 5) 
54d REM 
554 PRINTCS; ":"; TARCL@)"CAPTAIN’S LOG, STARDATE": INT СЕНОГ1ЙЙЙЙ)) /1 842008 
360 РРІМТТАВ:127"МЕ ABE PRESENTLY ON COURSE FOR "i DE 
378 ὯΝ RND:5:60T0558, 588. 620, 519, 540 
520 PRINTTAB(1@) "ТО RESCUE MINERS UNDER ATTACK BY ", £$ 
530 SRINTTOR 1A) "BOTTLE CRUISERS, "0070658 
588 PRINTTPB(10D"HITH A CARGO OF DILITHIUM CRYSTALS TO POWER” 
519 PRIVTTARCLOD"THE COLONISTS STATION. "0070650 
620 РЭТИТТНЕ 100 "T SEARCH FOR NEW NINESALS FOR ΤΗΕ FEDERATION. " 9070652 
279 PRINTTRECIBO"HITH THE CURE FOR MARTIAN FLU. ".GOTOGSG 
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648 РЕПИТАВ 16 "FOR OBSERTRTION OF A BLACK HOLE. " 

558 G0SUB34380.PRINT'SULU."; TRBLIED "SIR, I^M PICKING UP A VESSEL ON ΗΝ ATTACK" 
668 PRINTTRBOLO "VECTOR WITH THE "58". " 

578 GOSURS490:PRINT’SPOCK "; TRRCTBO SHIT z COMPUTER INDICATES THAT IT 15 THE" 
638 PRINTTRB(LODES; " VESSEL. "FA". CAPTAIN: " 

538 PRINTTRBGIBO "UNDER COMMAND OP CAPTAIN "Ug; ". " 

788 GOSUR:498.PRINTCS; ":"; TRBC ΦΥ" SQUND RET ALERT. LIEUTENANT HURA, "7 

718 GOSUBI43B:PRINT'UHUFR: КЕ, SIR” 

728 IPENDODOZITHENXS-"SULU"E: SEXS="CHEKOY" 

58 His. НЕЙ 058 М=й 5-8 

740 Р=й 

758 FORISITOA:2(1)-188:5( 122100: NEXT 

?68 R-1888-RNDC100) 

778 B-RNDC368)-180 

788 Б1-РМО(360)-180 

736 6070820 

888 IF ІК?ТНЕМӘ4й 

818 IF ID12THENG4@ 

328 605183299 

838 605183498 

848 PRINT:PRINTX$;":"; TABLO? "WHAT ARE TOUR ORDERS, SIR"; .INPUTMÉ 

858 PRINT: 150 

$68 FORI-1T021:IF2$0 D zMSTHENIZJ 

978 NEAT 

$88 ІР IXIORIX21THENPRINTA$":"; TABLE?" TROUBLE HERRING YOU, 518" 6070849 

838 PRINTES: °"; TRECDODOSCD 

388 0416070828, 918, 928, 3:0, 940, 950, 968, 969, 370, 970, 1500, 968, 1558, 1688, 1614, 988, 2090. 1290, 2848, 3438. 1456 
318 ІГНІСТТНЕНІЙЕЙЕ ЗЕРБІКТ"СНЕКОУ: — FORWARD PHASERS ARE DEAD. SIR. "60702898 
328 ІРНІСЕТНЕМІЛЕЙЕ СЕРРІКТ"СНЕКОУ: READ PHASERS ARE DERD. SIR. "60702698 
338 IFHiCSTHEHiITAELSEPRINT"CHEKQV: = FORWARD PHOTON TORPEDOES ARE DEAD. SIR. "60102998 
348 [FHICSTHENI41 GEL SEPRINT"CHEKOY: REAR PHOTON TORPEDOES ARE DEAD. SIR." 60702838 
358 IFHACLITHENTSEQELSEPRINT"CHEKOY: PROBE LAUNCHER IS DEAD, SIR "50702898 
968 TFHACL4THENTSS@ELSEPRINT"SULU: IMPULSE ENGINES ARE DEAD, SIR. ":GOTO2058 
379 IFHA<TATHENA4SGELSEPRINT"SULU: WARP DRIVE IS QUT, SIR. "00702098 

388 IFH2Z11THENSSGELSEPRINT'SPOCK: — THE SES" HAS NO ENGINES. SIR." :GOTOQ2890 
ЭЭЙ TFG=8THENA 730 

1008 PRINT"SPOCK: 1 DO NOT THINK THAT THE ";E$;"S WILL BE" 

1946 PRINTTABC{@) "РОО ЕП By THAT MANEUVER AGAIN, SIR." 

1828 00702098 

18:8 ІРВЕ2(В)<98ТНЕМ1050 

1040 PRINT'CHEKOV: WRONG PHASER BANK. CAPTAIN. ”:00702090 

185 PRINT"CHEKOY: — PHRSERS FIRING, SIR." 

1968 RS-R:BS-B:GOSUBT38 

1878 IFEND(DFOGTHENiGS 

1988 PRINT'CHEKOV: MISSED HIM, SIR ":GüTOcesa 

1898 IFRND(OC 2ТНЕМ 220 

1100 ¥=. 5 

1118 K-1 

1128 FORKA=2T04: IFS KS Cki THEN 148 

1138 К=КЕ 

1148 NEXT 

1158 IFSOOPSOTHEN11?8 

1168 ΚΞΡΗΡ{4) 

1178 H2=H2+¥ 

1158 PRINT"SFOCK. A HIT ON SHIELD εκ." 

1138 IFS:Ky=9THEN1220 

1208 500-2500 - 30V (RNDC05+ 1) 

1218 IPFSCOOPBTHENCOSGELSEPRINTTRBCLEO "WHICH 15 NOW GONE. SIR ":500-8:G0TQ2838 
1228 V-1:PRINT'CHEKOV: DIRECT HIT, SIR. ":GOTO1118 

1238 PRINT:PRINT'CHEXOV: GOT HIM, SIR." 

12480 IFRND(@)>. 5ТНЕМ:И20 

1258 GOSUB3498:PRINT'SPQCK: — THE ";Eb;" VESSEL REMAINS INTACT, CAPTAIN. " 
1268 GOSUB3490:PRINTOS; ":"; ТАВС10) "OPEN Я HAILING FREQUENCY. LIEUTENANT. " 
1270 605185498 PPINT"UHURR: HAILING FREQUENCY OPEN. SIR. " 

1288 GOSUB:490:PRINTOS: ":"; TRB(1ED THIS 15 CRPTRIN "; C$; " OF THE STARSHIP” 
1290 РАТНТТАВ (195$; ". PREPARE TO BEAM OVER SURVIVORS, " 

1566 IF RND(UD2. STHEN13S0 

1318 60583438 РЕТНТЦ$; ":"; TRBCLOD "I. AM AFRAID THAT WILL BE IMPOSSIBLE, " 

1328 PRINTTRBOLOD"CRPTRIN. SINCE I JUST ACTIVATED QUR RUTO-DESTRUCT. " 
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1358 FüRIZi2TOISTEP-1:GOSUp:S88: PRINTTRBCLO), I NEXT 

1340 РАТНТ: 60103828 

1550 605183498 PRINTIS; б"; TRBC103"S9ERV WELL, CAPTAIN, OUR SHIELDS HAYE BEEN LOWERED. ":G0T03228 
1260 ІРВВ5(В2<90ТНЕМ4дАФЕ! SEGOTO4858 

1279 IF ЯВС4Ву>-98ТНЕҢІй4й 

1388 R9-R:B9-B:GOSUB3358 

1290 IF RNDODDOFSTPENI8GR 

1464 IF ο. 

idi ΙΕΛΒΞ{Ρ «3ΑΤΗΕΜΝΙΡΕΡΕΙ SEGATOM 19 

4428 IFXCIBTHENi P RUOLO ME HAVE NO MORE PROBES. SIR. "00702498 

1420 X-x«1: IFRNDCO C, 074 35THEN1440E1 SEGOSUB3498 : PRTNT"SPOCK : PROBE LOST. CAPTAIN. ":00702090 
1448 605185498. PRINT "SPOCK: THE PROBE IS HOMING IN ON THE ";F$; ", SIR. ".G0T02020 
1458 0М1-500704469, 1478, 1498, 1499, 1588, 1538 

1468 005182790:Р-852(8-7):00702090 

1478 GOSUB202d:R-REz: Revo. TPRSSORATHENSTOGEL 56602702090 

1498 SORESA R=ARSCR-247) : 60102898 

1498 1051062848:9=А857ра2жту: ыы 

1580 5=1 РОВ =2104 IF] =Z S THEN АЕ! SES 

1519 NEXT 

1528 505082500 PRINT:PRINT"SULL: "; TRBCAOD "SHIELD #"; S; "IS IN POSITION, SIR. ":GOTO840 
1538 B=B+120 

1540 ΙΕΒςΞΙΒΑΤΗΕΝΟΡΑΡΕΙ 5ЕЗ-В-250:00702090 

2250 605183498 PEINT"SPOCK: AT RRNGE'.R;"I WOULD ESTIMATE THE PROBABILITY" 

1568 RS-R:B3zB:G0SUB3398:FG-FO«108 

1578 PRINTTRECLS3 OF Я PHASER HIT ЯТ": 28; "AND THE PROBABILITY" 

1588 RER. B3=B 305183358 .29=Р9%1 Ag 

i238 PRINTTAG 10 "OF Я PHOTON TORPEDO HIT 97": Fat." 2070840 

1588 ΠΣΑΤ 5070848 


1618 30SUBSSOB. PRINT.PRINT"SPOCK. DAMAGES ARE AS FOLLOWS:"-PRINT 
1528 PRINTTABCL2)"SHIELD ¥: TREE 22058; ТАБОР 

16:8 FORJSLTIG POINTTABCLE т; TARDIU j; ТЕЕП О NENT 

1548 PEINT PRINTTABSAGSS: " DAMAGE ", 

1655 IFH155 STHENASSQEL SEPSINT NOME ПОТ 

1668 PRINT PRINTTAB(2@) "REAR PLASERS AGT" 

1578 IFHLCTHENLTZOELSEPRINTTRE 200 T ORMAED PuRsERS QUT" 

4280 IFHiCSTHENi7TPELSEPRINTTRB (ОЙ "SEAR PHOTON TORPEDOES DEST" 
1538 [FHLCSTHENL?2RELSEPRINTTABC20)"FORHARD PHOTON TORPEDOES DERD" 
1780 TERY СМ ТНЕНИ “ICEL SEPRINTTABS 20 "PROBE LAUNCHER DESTRONED" 
1718 PRINTTARC 20) "HARP DRIVE LOST" 

1. 


1728 LFHACLATHENL72@ELSESRINT TARY 28)" IMPULSE РОВЕР LOST" 

1738 PRINT ЖЕТТТ О FFE. " DAMAGE "; 

1748 IFH258. STHENLTSOEL SEFSINT"NOME” PRINT. 6070040 

ATTA PRINT PRINTTAB(2@)"ALL PHASERS DEAD" 

1768 IF HecSTHENPRINT -GOTOS4GELSEPRINTTABC 29) "ALL TORPEDOES DERD" 
i778 [FACS LATHENFRINT SOTO 


АЙЕ ЗЕРКІМТТЕВІ 205 "HARP DRIVE LOST" 

1738 TFRECLSTHENPR IN” COTCRAGELSEPRINTTRB(ZEA IMPULSE ENGINES OUT" PRINT: GUTAS4A 
i738 PRINTTRE {GI E CODE 2 ° 

1888 GÜSUB:498:PRINT"UHURR: ВИТ. SIR. THE "Ef; "S BROKE CODE 2 YESTERDAY, SIR * 
1819 605081490 PRINTCS: °"; ТВС) "CODE 2, LIEUTENANT, IMMEDIATELY!" 

1828 005483498 РАТНТ"ИНИЕЯ. ΝΕ, RYE, 519. Gü AHEAD, 519. " 

1520 00508349 PRINTES: " :": TRBC10D "THIS. 15 CAPTAIN "; C$; " OF THE STARSHIP ";5$;"." 
1840 GÜSUBiS88:PRINTTRB(18)"HE ARE UNDER ATTACK BY THE ";Ef;" SHIP ";F$ 

1858 005082598 PRINTTABCLO3"AND. IN ORDER TO PREVENT THIS SHIP FROM FALLING" 

i368 SOSUEISGR:PRINTTRE(18S" INTO ENEMY HANDS. МЕ ARE ACTIVATING THE СОРВОМІТЕ" 
1870 GOSUBSSER:PRINTTAECTO) "DEVICE. SINCE THIS WILL RESULT IN THE COMPLETE" 

1358 OER FAINTED ANNIHILATION OF ALL MATTER WITHIN A RANGE OF 5008" 

1890 505483580 PRINTTABSIG? MEGRMETERS. ALL YESSALS SHOULD BE WARNED TO STAY" 

1308 GOSUBSIOG PRINTTSEL1RD"ULERR DF THIS AREA FOR THE EXTER, 

1919 PRINTTSR CLAS SOLAR YEARS, ° 

1358 ВЕСТЕЙ > 2THEN1 ЗЕЯ 

1329 HIBIR PRINT SOLE, THE WERT 15 MOVING AWAY ЯТ WARP 19, SIR " 


1348 GOSUBS4S FRIT FE. ΤῊΣ TACTIC APPEARS TG ЧАЧЕ BEEN EFFECTIVE, SIE." 

1320 PRINTTRBCID"THE "ES: "5 HAYE SEEN REPULSED. "00702226 

1368 (055250 PAINT SULU. NC IMEDIATE CHANGE IN VER "OS COURSE OR SPEED. ЫҚ” 
ix 2-5. РЕ: INT zu 17 WOULD SEEM THAT THEY HAVE, AS ҮШІ MENS’ 


ATALI PUT ΠΤ, “CALLED АЕ BLUFF, CAPTAIN, "20702950 

1398 005183490 PEINT'COMRUTER.") FORIT=L2TLZED-2 SINTRA ООН m 

2800 PRTNTTARC LA) THE "; 3$; "HAS BEEN DESTROYED, " 

103 APO. 2083 309383500 PRINTTRBIIO RADIUS OF ENPLOSTIN’ Q; "МЕЗАМЕТЕР, C 

ο ο ο οσο "VESSEL DENNIS INTACT." 


4 
} 
= 


2029 20102220 
3048 IFE$z"POMD AN" ТНЕЧЕРТЬТ"ИНИЕЯ. NO ANSHER FROM THE ";F£,", SIR. "0702098 
2858 005082430 FPRINTCS: US TARR TRIS 15 CAPTAIN "C$; " OF ΤΗΕ STREZHI? ":5$ 70" 
2ЙЕЙ PRIMTTRBCAEO"WILL vo ACCEPT QUR UNCONDITIONAL SURRENDER?” 
2078 GOSUB249@-PRINTLS; ". ": TABADI ON SESGLS ΓΕ THE 05” EMPIRE, I ACCEPT YOUR" 
2080 PRINTTABC4E) "SURRENDER, PREPARE FOR IMMEDIATE BOARDING." G0T03228 
2898 REM ENEMY MOVE 
ae IFH2£9THEN2258 
2449 IFH2X11THEN?: эй 
2120 IFH2212. ЭТНЕН2650 
2138 IFH1»18. 3THEN2706 
2440 1FHi58. 3THEN21?8 
2458 TERRNDY 200 THEN? Ta 
2169 GOSUB2798.R-RBS(RA") : ТЕКОЗАИЙТНЕНЕ РНЕ SECTOR 
2470 ТЕРМОС) STHEN2168 
2185 0582828 RGRRS(R-Y)Y: : IFR>S000THEN2780ELSEG0T0320 
2190 ТЕНАСУТНЕНІ220 
2200 IFHiCSTHEN2158 
2248 ІРНІ2109. STHENZ? EG 
2220 IFRND:0 Z STHEN2170 
2238 IFPMDCDC 5ТНЕМ2258 
2249 GOSUB2G3B: R-RES (R42) ТЕ525008ТЧЕҢ270ЙЕ) 550170328 
2258 GÜSUB284B.P-R2502-D4-2 үрім 
2260 IFR»?BQTHEN2?SR 
2279 IFRO280THEN2240 
2208 60702450 
2398 ТЕНОСЕТНЕМЕЗАЙ 
2208 IFHiC?THEN2:78 
2310 ТРЕСЗРИТНЕМ2290 
2220 IFRO?OBTHEN2248 
2370 ТЕНТ 3THENZTER 
2248 IFINT(RBS(B1/900 > INT (RES R794? 3 THEN2258 
2358 IFRBS(Bi-30)»-RBS( з ›-2@ТНЕН2®5@ 
2268 ТЕРМ)(97<. STHEN2Z2SBELSEGOTO2249 
2270 Әзер В9=8! 005161198 ROR BIBL OSES 
2388 ТРЕВУРАТНЕМ2 258 55007022210 
2298 ІРНІС?ТНЕН2450 
2498 IFR2158THEN2420 
2410 ΙΕΕΜΟίΒὺς, 5ТНЕН2ІЗӘЕ 500702250 
2420 πο apas 
2438 FARSI C ISRTHENZSBUELSEGOTUC1OR 
2448 IFRO7RTHEN2240EL 5 50702240 
2450 ІЕВО?ӨЙТНЕН224й 
2468 КӘ-8:89-В4:000182250:К9-К:В9-01:000182290 
2470 IFFS;FSTHEN2z48 
2488 IFH41>6. 9ТНЕН2508 
2498 IF INT CABG B4 /30) INT PIS (799)  THEN22SO 
2500 IFABS(B1-98)>=ABS(B~98)-28THEN2BSREL 55050702250 
2518 ІРНА<6ТНЕН2640 
2520 T-Hi-V: IFRBS(CT-5)C 1THEN2548 
2538 IFRBS(Hi-6. 26)>. 3THEN2SMGELSEPRINT"CHEKOV: REAR PHASERS DEAD, SIR. ”:00702640 
2548 IFRBSCT-7)C 1ТНЕМ№560 
2558 IFRBS(Hi-7. 25)>. 3THENZSGBELSEPRINT"CHEKOV: © FORWARD PHRSERS DEAD, SIR. ":GOTO2648 
2568 IFRBSCT-9)C 1ТНЕМ580 | | 
2578 IFRBS(H1-8 25)». 3THENQSS@ELSEPRINT"CHEKOV: КЕНЕ PHOTON TORPEDOES DEAD. SIR ": 60102648 
2588 1ЕВВ5(Т-9)<. 1THEN2S90 
2590 IFABS(HL~9. 25)>. 2THEN2600ELSEPRINT"CHEKOV: © FORWARD PHOTON TORPEDOES DEAD, SIR. ": 60702649 
2500 ТРАВССТ-11 τς 17НЕҢ2620 
2648 IFABS(HL-11. 251). 2THEN2622FLSEPRINT'CHEKOY: PROBE LAUNCHER AND WARP DRIVE GONE, SIR ":GOTQ2640 
2628 ІҒАВ547-14;5. iTHENZESÓ 
2638 IFRBS(Hi-14. 25)». 3THENZG4QELSEPRINT"CHEKOV: © IMPULSE ENGINES DERD. SIR." 
2649 SETUEN 
2658 ΙΕΡ»ΘΤΗΕΝΘΘ 
2668 P-1:G05UB2498.PRINT"SPOCK:. ТНЕ ":Ef;" SHIP IS COMPLETELY CRIPPLED. SIR.” 
2670 PRINTTAB(LOX"HILL YOUL ALLOW THEM TO SURRENDER"; : INPUTAS: [FAS="YE5"THENL268 
2688 PRINT'SPOCK. 00 YOU WANT TO DESTROY THE ";F$;", CAPTAIN":  INPUTAS: IFAS=" YES" ТНЕМЗ40Е: SEGCT 02719 
2698 REM LOSS OF CONTACT 
2790 002182490 PRINT SUL: CONTACT WITH THE "; Еф; " VESSEL HAS BEEN LOST, SIR." 
2718 GOSUETESR-PRINTCS, "."; TABLE? RESUME COURSE FOR 0%!) ΜΒ SULU.” 
2728 005082490 PRINT" SULL AYE, AYE. SIR "60103229 
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2728 REM 

2048 205182498 PRINT"SPOCK: — SENSORS INDICATE THAT ΤΗΕ *;2$; 15 OVERLOADING" 
2758 PRINTTRB(1B S "ИНАТ REMAINS OF 175 ANTI-NATTER 2005. UNDOUBTEDLY" 

2750 PRINT RE ΛΑ)" SUICIDAL MOVE, CAPTAIN. PODS WILL DETONATE" 

9778 PRINTTRBIIBO "IN 12 SECONDS... ^ 

2780 GOSUB3498:FÜRJJ-18TO4 STEP-1: PRINTTRECIOD 11: GOSUEZSOQ NEXT 11: GOTO3828 

2798 R=R-RND (2003 

2888 P-PND(368)-180:B1-RND(360)-180: IFRZOTHENE.--R. 


2810 RETURN 

2928 R=R+RNDC 200) :GOTOCGGR 

2820 R=R-PND (488° SOTERA 

2848 R=P+RNDC 408) : 60702890 

2358 GOSUBS4SÉ PRINT SPOCK THE ЕБ" 15 FIRING PHOTON TORPEDOES AT US." 
«588 RS-? 82-14 005082250: ТЕРНОСВ>УЕЯТНЕМЗ 04 @ 

2878 IFRPNDC8 < 4ΤΗΕΝΟΞΒΡΕΙ 5Е00702910 


2888 005082438 РАТНТ"5РОСК. — THE ЗЕБ" IS FIRING PHRCERS АТ US, SIR." 
2590 RS-R:BS-Bi:GÜSUBTISO- [FOND M OFATHENZGLA 


2388 ТЕРЕНС PTUEMPABR 

2948 V- S:K-RND(4)  TFS-BTHEN2 228 

2928 Κ-5 

2938 PRINTTRB(1OO"R HIT ON SHIELD #";K 

2948 IFZ(-8THEN2S?8ELSE2 (IO 200 - 389 RND CO). 1) 

2958 Hi-HitV:GOSUB2518: ΙΕΖ(Κ)28ΤΗΕΝΘΡΘ 

2968 2(K)=8:PRINTTRB(10) "THRT”S IT FOR SHIELD #";K;",SIR "6010898 
2978 GOSU83499:PRINT"COMPUTER: THE ";5$; " HAS BEEN DESTROYED. ".60T02220 
2988 V=1 K-RND(4) : IFSz8THEN3808 

3398 К=5 

3000 PRINTTAB(18)"A DIRECT HIT ON SHIELD $";4; ", SIR ":GOT02948 

3818 PRINTTRBCIG)"EVRSIVE MANEUVERS WERE EFFECTED. NO DAMAGE. ":0070800 
3828 PRINT:G-RND(280) : IFQCRTHEN3858 

3838 GOSUB3498:PRINT"CDMPUTER: RADIUS OF EXPLOSION"; 0; "МОМ " 

3848 PRINTTRB(18)5$;" HAS BEEN DESTROYED. "60103228 

3858 605183498 -РАТНТ"5РОСК : "; TRB/10 E$; * VESSEL DESTROYED, SIR " 
3860 PRINTTABCL@) "RADIUS OF EXPLOSION WAS"; 9; "MOM. "60103228 

3878 PRINT:PRINT"SPOCK: ТНЕ POSSIBLE COMMANDS ARE AS FOLLOKS:" 
i988 PRINT:PRINT'CODE COMMAND CODE COMMAND" 
3898 PRINT"RANGE — RANGE “SEARING PHASEF = FORWARD PHASERS" 
3198 PRINT"PHRSER REAR PHASERS TORPF FORWARD TORPEDO" 
3118 PRINT'TORPR РЕВЕ TORPEDO PROBE АМТІ-МАТТЕВ PROBE" 
3128 PRINT'CLUSE — RPPRORCH (IMPULSE) — SWAY RETREAT IMPULSE)" 
3138 PRINT"PURSE — RPPRORCH (HARP) ESCAPE RETREAT (ИЯЕР)" 
3148 PRINT'SHIELDS OPTIMUM SHIELDS ROTATE 198 TURN" 

3150 PRINT'CHRNCES FIRING CHANCES COMMANDS REPEAT COMMANDS? 
3168 PRINT"DRMRGE FULL REPORT BLUFF ТЕУ BLUFF" 

31?8 PRINT"WAIT ENEMY^5 TURN SCICIDE — SELF-DESTRUCT" 
S188 PRINT"LVEER — TURN LEFT RVEER — TURN RIGHT" 

3138 PRINT"SURRENDER".PRINT.PRINT"PRESS ENTER Tü CONTINUE") .INPUTRS CLS RETURN 
3288 PRINT:PRINT'SPQCK."; TRBCHEDF f; " 15 АТ RANGE": R; "МОМ, BEARING®: B; 
3218 ΡΕΙΝΤΤΗΕ 487 “DEGREES. "КЕТПЕН 

3228 PRINT.PRINT"COMPUTER: DO YOU WISH TO ATTEMPT ANOTHER BATTLE” 
3220 PRINTTABCL@)"IN COMMAND OF THE "i 5$; : INPUTAS: IFR$z "VES" THENS4O 
3448 PRINT:PRINT"COMPLITER: DO YOU WISH TO CHANGE SHIPS": - INPLITAS 
2290 TFAS="TES' THENSSCNÉORNDOO2) GOTOSQBELSEGOTO2486 


3268 PRINT PRINTNOTE WEAPON RANGES ARE: " 
2272 PRINT-FRINT! — THOCERS 2-408 MGM ΓΠΡΤΊΜΙ 298 MGM)” 
529) PRINT” TORPEDOES 200-700 "üM cOPTIMUM 500 MOM)" 


3298 PRINT" — PROBES ALL FANGES” PEINT 

3288 PRINT PHASESS ARE MOSE DEADLY THAN TORPEDOES PROBES IAUSE" 
S318 PRINT" TOTAL DESTRUCTION, BUT ARE EFFECTIVE GML 7 PERCENT 
1220 PRINTE THE TIME, TORSEDCES AND PHASERS ARE MORE DEADLY" 


ЗИ SINT WHEN THE BEARING OF THE ENEMY [5 OSE TO 3 OR igp" 


ELEM 


9 RINT DEGREES. ° PRINT PRINT PRESS ENTIS TO FIRE" СОРҒА τις RETURM 


à. IFRES:F3- 500 2RRTHENSS 


А πάς 


1180 RETURN 


L.) 
d 
к» 
ғә 


£ сре dq 
Ὀ см S ber fs 
aa 


tal μα ed ded 


NEN 


id 


ie om πα 


0.52 ESO ἐπὶ na (Sh fx) кш 
T 


£imev 
0502549 


diss 
Tess мн | 


IFHi 51 4 THENSEA 
ВЕРНЫЙ: y 


nara СЧА 

END 

PRINT FORIICITOIGRA: NETII. RETURN 
EE 


E?z. 141530БжАр5(38-ҢЕ210200/128 RETURN 
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ВОМВ DISPOSAL SQUAD 


This is a spiced up version of the original program. There 1$ а 
flashing “TICK” while the computer waits for your input. The setup 
procedure also is reduced. 


Program Listing 


iB REM THIS 15 THE PONGRAN OF TIME BOME 

28 REM THE BOMB CONSISTS OF 4 STICKS OF 

38 REM DYNAMITE AND 15 CONNECTED TO ñ 

48 REM DIGITAL CLOCK AND OTHER SENSORS. 

SØ REM UNFORTUNATELY, YOU CANNOT JUST 

БЯ REM CUT THE WIRES FROM THE CLOCK 

78 REM IF THE WIRES ARE NOT CUT ACCORDING 

38 РЕМ TO SEQUENCE. BANG! vnu BLOW HF 

38 RANDOM: С 5:РРТ INTTAB(28)" TIME BOME" 

188 PSINTTRBR 20): --------- 

148 PRINT:PRINT"THE TIME BOMB 15 SET TO EXPLODE AFTER б MOVES YO 
128 PRINT"MUST DEFUSE THE BOME BEFORE THEN, OR ELSE THE RESULTING" 
138 PRINT"EWBLOEIDE HILL GET VOL iris PRINT 

148 PRINT"THERE ARE 18 WIRES LABELED 1 Τῇ 18, 2 OF THESE WIRES WILL" 
158 PSINTERUSE IMMEDIATE EXPLOSION IF CUT !'":PRINT 

168 PRINT"üF THE REMAINING 8 HIRES, 4 ARE NOT CONNECTED TO ANY” 

170 PRINT"SENSOR. INCLUDING THE CLOCK, THE BOMB MAKER PLANTS" 

188 PRINT’ THESE FALSE WIRES, JUST TO SIVE YOU А HARD TIME IN" 

130 PRINT"DEFUSING THE BOMB. * PRINT 

ΠΒ INPUT"PRESS ENTER WHEN READY TO BEGIN"; 8$ 
18 ELE 

228 REM THE WIRES ARE 

238 Ғ-4 

240 FOR I-1T048: Мея: NEVT 


d 


290 КЕМ SET TWO WIRES TO CAUSE EXPLOSICN 
zog FOR 1=1 YG 2 

ZB IEDR IF HODES THEN 278 

230 μὲ =з NEXT 

СЭЙ REM СЕТ UP HARMLESS WIRES 

ТИЙ FOR Ізі Ti 4 

348 J=RHD0(IBY TF ИСТ THEN 318 

328 μί 1151 NEXT 

558 КЕМ THE REST ARE LIVE 

Тай M-8 

ig M=M+1 IF Moe THEN 238 

368 CLS:PRINT-PRINT"THE BOME I5 "; 

i?8 IF Mz1 THEN PRINT" TICKING AWAY" ELSE FPRINT'STILL TICKING" 


K 
388 PRINT:PRINT"HHICH HIRE TO CUT?"; :РеР05(0) 


' 
e 
Aw 
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Leh Ags" "111 
Е Riz" " THEN A="TICK !" ELSE R$=" 3 
PRINTBSL. R£; СНАСТИ; 158 
428 IzI+1 IF 1258 THEN 480 
420 1%‹1)=1НКЕТ 1ТЕ 1%) = "" THEN 428 
440 IF LECDZCHREÍE) THEN I=J-1:PRINT84132+P, CHRECS); :PzP-1:G0T0 428 
458 IF LECD-CHRECGÓIS? THEN PRINTGIST4P, CHER CIO GOTO 478 
468 PRINTGISI«P.L$iDu ЛЕНЕ Р=Р+1 GOTO 428 
479 P$z"".FüR Ізі TO ГОН ІІ НЕТ I 
488 L=VALCPS IF 151 OR Leia THEN 318 
498 IF ELSE THEN 524 
Sag PRINT:PRINT"SORE" THRT^S BEEN USED".FOR 1=1 TO 1806 NEXT 120070 558 
S18 PRINT;PRIHT"TRV PICKING A NUMBER FROM 1 TO i8 THIS TIME" 
se FOR 151 TO 1888: NEXT 120070 368 
a38 IP Mülo-3 THEN 690 
548 IF WKLi=i THEN 588 
ой ΜΗ =B:F=F-1 
364 IF F= THEN 548 
574 IF M=6 THEN 634 
SEA PRINT PRINT GOOD SHOW ! NOW ONLY"; Fi "MORE TO 50." 
598 FOR 1=1 TO 1500:НЕАТ:0070 350 
ena IF M=6 THEN 528 
SAB WOLO-B:PRINT.PRINT"GH! OH! THAT WAS Я HARMLESS ONE" 


620 PRINT"STILL';F, "MORE LIVE ONES TO GO 1" 

628 GOTO СОЙ 

баз DLESPRINTOPRINT^MDM ! WHAT A GREAT JOB 1" 

ESA PRINT:PRINT"YOU SHOULD HAYE BEEN WITH THE BOME” 

БЕЯ PRINT*GISPOCAL SQUAD. AND TOU DID IT ΙΝ; Mi "MOVES, " 
суа GOTO 728 

Бай CLS PRINTCHRE( 23): 

Бай PRINTERA, "SAAR": 


“as mJ 
е 1 


Е 


їй FÜR 1=1Т0150:МЕТ 

алғын а 

728 FOR 151 ТО 2008:NEXT 

& CLS:PRINT.PRINT.PPINT"HPNT TO TRY ANOTHER BONE (YES OR NDD"; 
@ INPUT 88-12 RESUVES" THEN 240 

75A PRINTIPRIND'HEVER DID LIKE EXPLOEIONZ, DID ЧИ?" PRINT 


760 END 
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BIORHYTHM 


This program is changed from the original. It will display 13 
days starting with the date you specify. Press ENTER to scroll one 
day at a time. Press the *up-arrow" to scroll the next 13 days. Press 
"X" to terminate the program. 


Program Listing 


їй (15 

28 00-242. 14159 

38 DIM 852) 

48 DIM №42) 

58 DIM ΧΕίΞΙ; 

68 INPUT"ENTER YOUR BIRTHDAY ММ, DD, Vo: D,Y 
78 INPUT"ENTER TODRV^S DATE (ММ, DD, ννν'; ML D Т1 
88 IF M > 12 OR М > 12 THEN 139 

38 Vi = 1908 + Ἡ 

108 Y = 1900 + y 

118 P-8:0-6 

128 R = v - ү 

138 S = R ж 365 

148 FOR I = 1 TO 12 

158 READ ACI). MSCI) 

168 NEXT 1 

i78 IF Di > AML THEN 198 

188 IF D <= ACM) THEN 208 


248 R<2> = 29 

200 FOR J = М TO 12 

239 P = P + ALT 

248 NEXT J 

250 Р= Р-р 

268 Βίου = 28 

278 IF INTO/4) <> 4/4 THEN 299 
288 R(2) = 29 

298 FOR J = Mi TO 12 

ipa Q = Q + ACJ) 

318 NEXT J 

42989 = Q - Di 

Sid 5 = 5 + INTER 2 4) +P - 0 
540 PRINT 
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358 PRINT "YOU АВЕ ";5;" DAYS OLD” 

368 PRINT 

370 PRINT"YOUR BIORHYTHM PROFILE 15:" 

388 P=INT(23«(S/23-INT (5/23) +. 3) 

398 PRINT ТАВ‹5), "PHYSICAL = "i 

488 T = INT(28«(5/28- INT(S/2804. 5) 

418 PRINT TAB(S), "EMOTIONAL = 41 

428 E ІН ЖО ІН ЫЗ 

438 PRINT ΤΗΒ(5), "INTELLECTUAL = “i 

448 PRINT 

458 PRINT"THE FOLLOWING IS A GRAPH OF YOUR BIORHYTHM. " 
468 PRINT"PRESS ENTER TO SCROLL ONE DAY RT А TIME PRESS" 
478 PRINTCHRS(34); "D"; CHRS(34);" TO SEE THE NEXT 12 DAYS. * 
488 PRINT"TVPE "j CHR$CRAD; "K"; CHRS(34); " TO STOP. " 

490 FOR N 21 Τ0 3. 


588 NEXT N 

518 505108 640 

528 R$-INKEYS:IF Ag="" THEN 328 

520 ТЕ В$=ЁНЕ (11) THEN 268 

548 IF R$-"[" THEN GOSUB 670:0070 228 
сей IF R$-"X" THEN 1870 ELSE GOTO 520 
550 REM PRINT 13 LINES 

578 GOSUB 588 

588 PRINTGSER, ; 

598 GOTO 52 

688 REM PRINT A LINE 

619 GOSUB 718 


БОЙ PRINTSO,"P = PHYSICAL 1 = INTELLECTUAL Е = EMOTIONAL" 


628 RETURH 

648 (15 

658 60518 528 

668 PRINT 

578 FOR 11=1 TO 13 

688 GOSUB 248 

630 NEXT II 

708 RETURN 

748 PRINT МКМ); Di; TRECE; 
728 D1-D144 

720 IF М > AMi) THEN Di = ММ 
748 IF Mi > 12 THEN Mist 
758 FOR 1-і TQ 54 

768 X$C1)=" " 
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798 M=INTESINER/23 эж 09 425 26 
OMG I22INTOSINCT Ze aoe +36 
S18 I3-INTZSINLE/ 33800 «25026 
929 Азер" 

сій xEOIIOIUEC 

ТІСІН 

858 IF 14-12 OR МТЗ THEN И)" 
868 IF 12=13 THEN X$(12)="an 
378 FOR 1=1 TO 54 

888 PRINT RF Di: 

238 HEAT I 


386 P=P+1 IF P = 23 THEN Р-й 
338 ΕΞΕΗ ΙΕ E = 33 THEN E=Q 
920 T=T+1:IF T = 28 THEN Тай 
9:8 PRINT 


344 RETURN 

358 DATA “1, JAN 

368 DATA 23. FEE 

978 DATA 24, MAR 

388 DATA 38, APR 

998 DATA 24. МАТ 

1888 DATA 38, JUN 
1818 DATA 31, JUL 
1828 DATA 31. AUG 
1038 ΡΗΤΗ 38, SEP 
1948 DATA 34, OCT 
1850 DATA 30, NOY 
1868 DATA <1, DEC 
1878 END 
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LEAP FROG 


Program Listing 


18 REM THIS 15 THE GAME OF LEFF FROG 
28 REM THERE ARE 5 GREEN FROGS LABELLED 
38 REM WITH G°S AND 3 БАШЫҢ FROGS 
48 REM LABELLED WITH B'S 
SA БЕМ THERE 15 Ἢ SINGLE SPACE LEFT OVER 
EA REM ANG IT IS 14 THE MIDOLE BETWEEN 
та БЕМ THE GREEN AND BROWN FROGS 
24 SEM TO WIN YOU MUST MOVE ALL ΤΗΕ 
Эй REM GREEN FROGS TO THE RIGHT SIDE AND ALL 
198 REM THE BROWN FROGS TO THE LEFT 
148 REM SET UP DIM FOR FROGS 
128 DIM ARIS) 
138 REM SET UP COUNTER 
148 С=й 
158 FOR I-1T05: 40) ="6" NEST 
158 FOR Iz?TOli: =" NEAT 
178 A$iġi=" ° 
188 LS :PRINT PRINT 
199 PRINT THE GAME OF LEAP FROG" 
HPP Ан 
248 PRINT: PRINT 
228 PRINT" UE GAME STARTS OFF Bs." 
238 РЕТНТ:РАТНТ" 68666"; CHRE 93); "ВВЕБВ" 
248 PRINT:PRINT"TO МІН, YOU MUST END HITH:" 
258 PRINT:PRINT"BBBBB"; CHR$355; "66660" 
268 PRINT:PRINT"NOTE THAT THE °"; CHEE); "" 15 THE EMPTY SPACE. 
a PRINT:PRINT"MHRT 15 YOUR MOVE (START: ENDO": 
A INPUT SE 
290 TF RBSCS-E)32 THEN PRINT"SORRY, YOUR LEAP 15 TOO SMALL" :GOTO 2/0 
IF A$(S)=" "THEN 328 
IF ASCE? <> " " THEN 358 ELSE GOTO 3/8 
PRINT -PRINT"HEY, VOU CANNOT START YOUR LEAP WITHOUT" 
PRINT"R ЕРОС, YOU HAYE GIVEH THE LOCATION OF THE" 
{40 PRINT"SPACE" : 0070 278 
358 PRINT:PRINT*HEY, YOU MUST END YOUR LEAP ON A SPACE. " 
260 PRINT"YOU HAYE GIVEN ME THE LOCATION OF A FROG." ΠΗΤΠέ/Β 
370 Я$(Е)=8%(5):9%(5)=" 3 
es 0$= ИН 


D 


va pP» 
res 


' ыз! 
HI 
бо C$) осы 


os 
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388 FOR 1-1 TO 11 

486 BEARD 

410 IF B$=" " THEN BS=CHRE(95) 

428 D$-D$«R4 

438 NEAT 

448 PRINT:PRINT"THE CURRENT PATTERN OF FROGS 15:" 
458 PRINTD$ 

460 C=C+1 

470 IF LEFTS(O%, 5)="BBBRB" AND RIGHT$(D$, 5)="GGGGG" THEN 499 
438 GOTO 278 

430 PRINT:PRINT"?QU HAYE DONE IT, IN ONLY"; С; "MOVES" 
588 PRINT:PRINT"DO YOU WANT TO TRY AGAIN": : INPUT 18 
348 IF LEFTS¢1$, Diz "y^ THEN 148 

528 END 
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COMPUTERIZED HANGMAN 


This program was rewritten from the original program to in- 
clude a graphics display of the gallows and a piece by piece assembly 
of a body as shown in Fig. 2-1. Also, 50 vocabulary words are 
Included. 

Pressing ENTER inresponse to “PICK A LETTER” will allow 
you to guess at the whole word. No penalty for a wrong guess. When 
you pick a wrong letter, it's recorded at the bottom of the display. 


PICK A LETTER? 


LETTERS GUESSED—X, Y, Z 


Fig. 2-1—As the Hangman game progresses, the body is assembled on the 
TRS-80 video display. 
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Program Listing 


ій RANDOM 

2B DIM ΝΕΟ, rsen 

ій GIH б ГОЙ) 

48 REM GET WORDS 

38 ΕΠΕ " TG 36 READ НЕТУ. MOTOS: NEXT 
ӘЙ РЕМ ОҒАН GALE μες 

7815 

SA FÜR Wz6& Us 25 

Эй SETCR, EY SETEM, 42У ЗЕТУ, азу СЕТУ, 44) 
{ΠΗ NEST 

118 FOR Тау TO 44 

124 SETCS. Và: SETA. ¥) 

158 NEXT 

140 vV-iz FÜR «=$ TO 15 STEP = 

158 БЕТІ, тэ ЗЕТУ Ча 

46Η NEXT 

1?8 FÜR "ар TO 1i SET А, т) NEXT 

190 REM к NU PIDE В WORD RT RANDON 
198 I-RNDISED:IF НЕТУ THEN 138 

ВИН Hipsi ΕΞΗΣ Ра ЕҢІР) 515: ü-8 
248 REM CLEAR GUT ALREADY GUESSED LETTERS 
228 FOR 151 TO GH Da NENT 51-8 


238 REM DRAN CHARACTER POSITIONS 

248 FOR X-413 TO 4iB42*( EMCPPO-13 STEP 2 

258 PRINTER: CHECIA; 

268 NEXT 

270 PRINTES, “LETTERS GUESSED ="; CHRIS: [5358 

230 R$-" "PRINTESA, "PICK A LETTER"; : INPUT A$ 

290 IF LEN(R$)21 THEN ΡΕΊΗΤΒΞΕ, “ONE LETTER AT A TIME, PLEASE"; GOTO 244 
390 IF Rf" " THEN 364 

318 PRINT@2@, "WHAT 15 YOUR GUESS": : INPUT B$ 

320 IF BS=P$ THEN 398 

538 PRINTASA. "SORRY ' WRONG HORD"; 

340 FOR 1=1 TO 1588: NEXT 

590 ΡΗΙΝΤΒΤΒ, CHEESE? PRINTESA, CHRACSED; :PRINT0458, СНЕСТИ); 20070 288 
268 б2= 

$78 G2=G2+1: IF 62701 THEN 400 

338 IF R$-G$(G2) THEN PRINT@94, "ALREADY USED"; GUTO 248 
338 GOTO 370 

400 G$CGDo-R$: 51-61 

419 158 

428 FOR 151 TO P 

438 IF R$ = МИР, 1, 1? THEN PRINTG41842«(I-15, R$; 1-141 
448 NEST 

458 D=Q+J:IF Q = P THEN 890 
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468 IF 18 THEN 350 

478 Pi=P1+1 

459 IF L=398 THEM PRINTBL, R$; 21-929 PRINT8L,", 
430 ПН РА GOTO 588, 550, 670, 718. 758, 7 

Зав PRINT@S4, "ОН! OH! THERE’S YOUR HERD"; 

548 FOR Z-:8 TO 42:5ЕТ СХ, 122: SETCR. 15) NEAT 
SET(7, A30 :5ЕТ (38. 122 :SET( 42, 13): SETCAS 13 
CETOT, 14) SETS, 14) SETCA2; 14) SET £43, 14 
GOTO зай 

ЗЕЯ PRINT834, “THERES YOUR BODY 
A PRINT0458, 
SETA, 16) 
FOR #=36 
SET «6, : 9): 
SETGG?. 13 
2E G8, 29) 


) 


CHUMMM, "; 
"PUTTING ON HEIGHT?"; 


TQ 44: SET 
SETA, 15} 
:SET (45, 13) 

-οΕΤί42, 205 


, 175 NEXT 


620 SET(38, 242 SET C42, 21) 
538 SETI, 22): SETCA S. 22) 


SET(36, 23): 
FOP x 7 =%6 
Ti 


5Е7(44,220 
n 44 SETER 24) NEET 


578 PRINT@S4, "OOPS, THERE GOES THE RIGHT ARM": 
630 X=25-FOR Yai? TO 21:SETOR Y: X=X-1:NERT 


S90 ЅЕТС21, 22) :5ETCZ, 22) 

GOTO 348 

PRINTGOd, "HOM THE LEFT зїн, 
X=4S:FOR vei? ТО 21.SET(R V) ἀλλ: NEXT 
Н FE) RET 43 


43, #23 


“ah SOTO 348 
TE PRINTER, TRUE "RE IM TROUBLE NOI"; 
тор FOR 1=25 TQ ОЕ DC NEAT 
Tre SETCSS. 51) gum E: 
788 GOTO 34B 
тай ттт, “GOOD-BYE, CRUEL МОК 119; 
Зай FOR J-25 TO 24: SETOAI Т NEST 
Біз ЕТІ, SETA 217 
279 PPINTSiISG. "THE gue WAS "P$. 
4 


TH 2055 ЧЕ 


IT-EPTNT-PRI “TPE 


πα 


` 15. 
1 

ұза 
"гї 
em 
Кл 
ь--4 

ti 


^£. PRINT 


5. 
за ΚΣ 


тро AGAIN “SES 


D ығы. 
τ" db. 
ا‎ 


- 


NT τη 
t, 


аз жа 
LA ο 


a INPUT СЕТЕ Cie" VEZ" THEN #8 
acp PRINT.PRINT"CHICKEN!":PRINT 
278 END 
зар FOR 1=1 TO 1000 НЕТ 
898 CLS: PRINT: PRINT IE 5402 THEN PRINT TO GO THAT AAS = 
dpa IE раса THEN PRINT PRETTY GOOD! YOU'RE DOING WELL" 2076 
940 РЕН “THAT WAS CLOSE, BUT SOU GOT IT! 
aoa PRINT.CRINT"MOULD VOD LIKE TO TRY YOUR LUCK BORINÀ. 


"ар лаж 


раға: HEH 22 Mt 
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358 GOTO S58 

Зая DATA THUME 
358 ΡΗΤΗ MUSHROOM 
эса DATA AMERICA 
28 DATA COMPUTER 
ἢ DATA TELEVISIDH 
728 ATA ATLANTIC 
HAH DATA GAMES 

810 DATA HOUSE 
L428 DATA PACTS ic 


ыы К p K 


28 DATA BOTTOM 

ай DATA SEVERAL 

3 DATA ORANGE 
DATA CREAM 

| OATS RECEIVER 
4 DATA INTEGRATED 
ü GATE PRETZEL 
Әй DATA VITAMIN 

Я DATA CONTAINER 
1529 DATA DEXTROSE 
ii: DATA FAMILY 
114} DATA BRSIC 
1154 DATA FUNNY 
4158 DATA EXTREMELY 
1179 DATA EXECUTE 


LS кщз И NS ts us 


к= μοὶ 
ыз» ош 
Ju Е.П 
Ec ала 


4 t m 
ұш 
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το DATA SANITY 


1240 DATA TREMENDOUS 
i228 DATA FANTASTIC 
i238 DATA THOUSAND 
1240 DATA WHEAT 
1258 DATA GREASE 
1268 DATA MERDOM 
1278 DATA OSCILLATOR 
1288 DATA CASSETTE 
1256 DATA DICTATE 
1206 DATA BLANKET 
1318 DATA MARBLE 

328 DATA PAPER 
1338 ΡΗΤΗ TYPEWRITER 
1348 ΡΗΤΗ POSSIBLE 
1358 DRTR RTLRS 
1268 DATA LINEAR 
1378 DATA MICROWAVE 
1:88 DATA HANGMAN 
1398 DATA BLINDFOLD 
1400 DATA GALLOWS 
1410 DATA PLATFORM 
1428 DATA FINANCIAL 
14:8 DATA SECTION 


YOUR CHEATING COMPUTER 

Program Listing 

18 CLS: RANDOM 

28 REM THIS PROGRAM "LEARNS" HDR TO CHEST 

i8 REM TO USE TT JUST TYPE RUN 

38 PRINT'THIS PROGRAM LETS YOU BE Я DETECTIVE. IT PICKS A LETTER" 


SA PEINT"SEOUEHCE WHICH YOU MUST GUESS - CHE LETTER AT ñ TIME 3 
eB PRINT.PRINT'TO MAKE THIS GAME VERY DIFFICULT; THE COMPUTER CHEATS" 


PRINT'"ON EACH LETTER, WITH THE CHEATING A FUNCTION GF HOH WELL” 


ап “η 
πι эса ШЕ 


s PRINT UU DID ON THE PSEVTOUS TRIES OBVIOUSLY: THE FIRST TRY” 
ЗИ PRINT HILL BE ACRES” ° 
188 SERD A$ 
118 DATA RECDEPGHIIKLMNOPORETUVMETZ 
168 DIM GFE? 
158 REM GET A SEQUENCE OF TEM RANDOM LETTERS 
148 FOR i=l TD 18 


1-8 К=ЕМОС 267 
188 ОЗС =МИЯ$. К, 15 
Үй NEAT 
188 REM SET UP COUNTER FOR LETTER IN PROGRESS 


198 (1-8 

29И REM SET UP COUNTER FOR ALL LETTERS 

216 C2=0 

228 REM SET UP POINTER Tü LETTER IN QUESTION 
258 ігі 

248 КЕМ SET UF FROBRBILITY 

234 Р=1 


сей PRINT:PRINT"THE SEQUENCE 15 SET UP FOR YOU TRIAL. THE CHANCES" 
278 PRINT'THRT I WON’T CHEAT ARE"; Рай; "Z" 

288 PRINT:PRINT"HHRT 15 YOUR GUESS"; 

298 С1=С1+1 

i88 (2=С2+1 

i18 INPUT T$ 

328 IF ШЕКТ ЮЗ! THEN 328 

338 IF TOGEL) THEN 458 

348 CLS:PRINT:PRINT:PRINT'OKRS - YOU GOT THIS LETTER" 
130 PRINT'THE SEQUENCE 50 FAR IS "; 

368 FOR I-1 TOL 

378 PRINTGSCIO: 

488 NEAT 

398 PRINT 

400 Р-Р-Рж(1/643/415 

418 (458 
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дей L=L+1 

438 IF 1240 THEN 689 

448 GOTO 268 

458 Pi-RNDCB) 

468 IF РОРА THEN 488 

478 GOTO 588 

488 IF T$>G#<L) THEN 518 

438 PRINT"NOPE - YOU ARE TOO LOW" 

йй GOTO 288 

318 PRINT"NOPE - YOU ARE TOO HIGH" 

328 GOTO 288 

338 PRINT"ONE LETTER AT A TIME - TURKEY" 

548 PRINT'THIS TRY MAKES FURTHER EFFORT WORSE. " 
394 IF Ci<2 THEN 288 

568 Ci-C1-1 

3/8 GOTO 208 — — 

388 IF THGS(L) THEN 436 

290 GOTO 518 

688 IF (23458 THEN 720 

eid IF C22180 THEN тай 

бей IF C2588 THEN 688 

638 IF C2268 THEN 668 

648 PRINT'DR CHAMPION HAS STRUCK AGIN" 

pa GOTO 748 

GEA PRINT"HEY 8055 - THIS GUY I5 CHAMPIONSHIP MATERIAL" 
678 SOTO 748 

БЕЙ PRINT"PRRCTICE MAKES PERFECT - KEEP GOING" 
638 GOTO 748 

РЯ PRINT"NOT BAD FOR Я BEGINNER - BUT LOUSY IF YOU PLAYED BEFORE," 
718 GOTO 748 

728 PRINT'HRVE YOU THOUGHT OF PLAYING Я SIMPLER GAME - LIKE" 
738 PRINT"FIND YOUR FINGER?" 

748 PRINT 

798 PRINT"NUMBER OF TRIES".C2 

758 PRINT"PROBABILITY OF CHEATING ON ALL TRIES";P«188; "2" 
778 PRINT:PRINT"THE TOTAL SEQUENCE I5 "; 

788 FOR I = 1 TO 18 

790 PRINTERE IDY; 

800 NEAT 

910 PRINT:PRINT:PRINT:PRINT"TRY AGAIN CYES/NOD": 
828 INPUT T$ 

838 IF T$O YES" AND T$C>"HO" THEN 818 

848 IF T$="YES" THEN 148 

858 END 
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AUTO RALLYE 

Program Listing 

i8 REM THE CAR RALLY 

28 DLSCPRIHTOPRINTOPRINTOIPREGNUMEBSBiDOUT HE ΓΗ͂Ν RALLY 

4й PRINT:PRINT:PRINT"THIZ 15 THE SUPER CAR RALLY. THAT ALL DRIVERS Τη" 
Эй PRINT'THE WORLD BAIT FOR. THE DRIVING 15 TOUGH THIS YEAR, " 

64 PRINT"AND WE ALL HISH SOU “GORD ЦЕ”. ° 

78 FOR 1-17045080: МЕАТ 

88 CLS:PRINT:PRINT:PRINTTABC2@)" — CHOICE OF CARS" PRINT 


Әй PRINTTABE 2A) MINT а 

168 PRINTTAB! 28) LOTUS 2)" 
118 ΡΕΙΝΤΤΗΒί ZH?" TRANS-AM dou 
120 PRINTTRECZBO “FERRARI 4)" 


288 PRINT:PRINT:PRINT"REMEMBER - THE BETTER THE CAR, THE MORE GAG IT USES ' 
249 PRINT:PRINTENTER YOUR CHOICE OF CAR (3Y NUMBERD'; 

239 INFUT C4 

248 IF (124 OR CACA THEN PRINT'INVRLID CAR NUMBER, TRY AGAIN"; 6070238 
386 CLS:PRINT:PRINT 

318 IF N2=4 THEN 250 

328 PRINT"NOM CHOOSE WHICH COURSE YOU WANT TO RACE ON. THE STRRIGTHEST' 
338 PRINT"COURSE 15 NUMBER 1 (BUT THIS HAS THE MOST HAZARDS). NUMBER 5" 
340 PRINT"CONSISTS MOSTLY OF TURNS AND THISTS. ":PRINT 

250 PRINT"HHICH COURSE DO YOU WANT ENTER A NUMBER FROM 1 TO 55"; 

360 INPUT C2 

279 IF C295 OR (254 THEN SRINT INVALID COURSE NUMBER, TRY AGAIN. "; :GOTO 268 
428 CLS: PRINT: PRINT 

438 IF N2-1 THEN 490 

448 PRINT"VOU MILL NEED TO TRAVEL 5 MILES WITH .5 GALLONS OF GAS. " 

458 PRINT"VOUR STATUS WILL BE SHOWN AT 18 SECOND INTERVALS, AFTER" 
469 PRINT"ERCH STATUS CHECK, YOU HILL ВЕ ASKED FOR A NEW RATE OF GAS." 
478 PRINT"R RATE OF 19 15 HARD ACCELERATION, AND -19 15 HARD BRAKING." 
488 PRINT"RNY NUMBER IN BETWEEN 15 ALLOWABLE, " 

498 FOR 151 ТО CL:RERD B,M,S:B=B/10 NEXT 

538 Ris 5:Мі-0:С4-(4/2:У-0-230 

578 PRINT 

568 Ri-ü:T-8:D-0:01-8 

628 PRINT"PRESENT VELOCITY = "; TRBCSSOV 

638 PRINT"SALLONS DF FUEL REMAINING ="; TAB(35)A1 

648 PRINT"MILES TRAVELED ="; TABĖ35)ML 

658 PRINT"TIME PASSED (SECONDS) ="; TAB(25)T 

668 PRINT:PRINT"WHAT 15 VOU NEM RATE OF 285"; 

678 INPUT G 

688 IF GC-18 OR 0719 THEN PRINT"NOT VALID - TRY AGAIN": :0070678 

728 IF 0809 THEN 780 

738 2-24 

748 IF 20-4 THEN 798 

788 PRINT:PRINT"DUMMY !! YOU BLEW YOUR ENGINE !!" 
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778 GOTO 1278 
288 7-8 
POH VZINT(ExG-IaV ү) 
808 T=T+18 
818 PRINT 
828 PRINT"RORD CONDITIONS = 
ӨЗИ IF ¥? THEN 159 
344 Үсй 
858 М1=М1+9/468 
358 IF 658 THEN 5 890 
2 A1L=R1-{ κο 5889 
š IF М2>:5 THEN 1468 
aon IF 8450 THEN 1:88 
898 IF Кісі THEM 1858 
3068 IF 01=1 THEN 988 
9818 Q=INTCCC2+4 SRHDCEDO 
328 RzINTCO, ?5-C2)*RNDOD) 
338 IF R28 THEN 1298 
948 IF 070 THEN 1:48 
950 PRINT"CLEAR AND STRAIGHT” 
368 PRINT 
976 GOTO 520 


ЧОЙ H-INTABES:SSRNDOX 5 
= MU 

4 {и τσ xi THE е 
{ERE ТЕ YOH THEN £565 


ісін πο. ОШЕН г CURVE" 
1929 PRINT 

1455 =й 

1948 GOTO ой 


1958 E-E-(-D»ei 

1365 IF ЕСА THEN 1109 

1979 PRINT"UEHICLE ";E;" FEET AHEAD" 
1888 PRINT 


+ 

453 
ы, 
гы | 


ВИТО қой 

1488 IF V-D<5 THEN 1156 

1119 PRINT"VEHICLE PASSED By"; 

1128 D=u-D 

1138 PRINTD; "MPH":PRINT 

1168 Ri-B 

1178 GOTO 628 

1158 PRINT VEHICLE BEING PASSED" 

1138 D-RHD(4BO425:FOR I-170586: NERTI 

128 PEINT.TEINT"GRETHOUND BUS ТН THE OTHER LANE DOING"; D; "MPH ! o! in 
1258 PRINT:PRINT"CRRGH VELOCITY ="; ep; "! ! τ 

1268 FOR I-1TO1580:NESTI:CLS:PRINTCHREC2SOPRINTGGIB. "CRASH ! tU FD 
[πα το ΘΑ NEAT CLS: PRINT: PRINT 
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1578 PRINT"HHRT TYPE ΠΕ FLOWERS Ой YOU WISH. AT YOUR FUNERAL 77" 
i238 GOTO 1568 

1298 PRINT'VEHICLE AHEAD 1848 FEET" 

1:88 PRINT 

1:18 D=RNDE Iai +e 

1:58 ΚΞ 

1530 GOTO 529 


1358 04-4 

1368 PRINT:GOTO 528 

1388 PRINT*ENCELLENT - BUT WRIT" 

1398 PRINT.FOR 154701000: NEXTI 

1400 PRINT"TURKEY !! YOU RAN QUT OF GAS τι’ 
1418 GOTO 1558 

1420 PRINT"DOM/T КНОМ HOM, BUT YOU MADE IT 1 
1438 PRINT 

1448 Ri-B 

1458 GOTO 620 

1458 PRINT"THE FINISH LINE i1" 

1478 PRINT 

1458 PRINT"vOU ARE LUCKY THIS YEAR lin 

1490 GOTO 1568 

1500 PRINT"RRE TERRIBLE” 

1540 HHSC 

1529 PRINTH: "HAS THE SPEED THROUGH THE CURVE. " 
1538 PRINTY; "WAS YOUR SPEED. BY THE HAY," 
1548 GOTO 1278 

1558 PRINT"YOU LEAD FOOTED #$218828& (EXPLITIVE DELETED)" 
1569 PRINT:PRINT"VOU MANT TO TRY AGAIN, RIGHT !!!!" 
1570 PRINT"ENTER “VES: OR “NQ "; 

1588 INPUT Ag 

1590 IF AS="YES" THEN М2=1:0070 1648 

1680 PRINT:PRINT'"CHICKEN !!" 

1640 END 

1640 RESTORE 

1659 GOTO 218 

1660 DATA 45,. 53,10 

1679 DATA 68. 5, 18 

1658 DATA 78. 44.45 

1699 DATA 38,. 33,18 

OTHER PROGRAMS 


The following programs included in Section I will run on a 
TRS-80 with no modifications: Guess, Math Whiz Kid Quiz, 
Comp-U-Story. 

To run the program Guess Again, change “SUBSTR” to 
“МОП$” in lines: 400, 410, and 420. 
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Appendix А 
BASIC Statements 


'..-.',,.......,......,,,,. ME ا‎ 


BASIC (Beginners! All-purpose Symbolic Instruction Code) 
was invented and developed between 1963 and 1964 by John 
Kemeny and Thomas Kurtz of Dartmouth College. Since its first use 
in 1964, BASIC has steadily gained popularity as a high-level compu- 
ter language which the user can easily master. The essential vo- 


cabulary is below: 

Statement Example 

CHANGE CHANGE N$ TO N 

DATA DATA 15, -8, 76,... 

DEF DEF FNR (X, У) = 
(X 2 + Y 8) 

DIM DIM 243, 4) 

END END 

FNEND FNEND 

FOR-TO FOR X = 2 TO 66 

GOTO GOTO 100 

GOSUB GOSUB 100 

IF-THEN IF A = X THEN 100 


Definition 


assigns to the elements of N the ASCII numeric value 
of the string N$ 


the DATA statement assigns appropriate values to 
the variables listed in the READ statement 


asingle line function is defined by the DEF statement 


dimensions the elements of X as a 3 by 4 matrix 
ends program execution 


a multiline DEF statement must end with a FNEND 
(function end) statement 


defines the FOR, NEXT loop 
transfers execution to line 100 


transfers program control to a subroutine commen- 
cing at 100 


transfers program execution to 100 if the relational 
test is true 
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INPUT 


LET 
NEXT 


ON-GO TO 


PRINT 


RANDOMIZE 


READ 


REM 


RESTORE 


RETURN 


RND 
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INPUT X, Y,... 


LETA=V 
NEXT X 


ON M GO TO 10, 20, 30 


PRINT “LESLIE” 


RANDOMIZE 


READ L, К,... 


КЕМ АКЕА 
RESTORE 


RETURN 


STOP 


assigns to the variable(s) the values presented by the 
user from a user defined device 


assigns the value of V to А 

returns control to the beginning of the FOR-TO loop 
as M ranges in values from 1 up to Ist, 2nd,...line 
number is transferred control, as follows to GO TO 
statement 


prints the alphanumeric string within quotation marks 


assures each call to the RND produces a different 
order of random numbers 


reads values from the DATA statement found in the 
same program 


remark is placed in the program to be used only 
during listing as a debugging aid 
restores the data pointer 


returns program execution to the next instruction 
following the subroutine сай 


produced a random number 


stops program execution 


Appendix В 


Derived Functions 
НЕЕ ГГ г рунете 


The following functions which are not typical of standard BASIC 
library functions may be easily implemented by the following for- 
mulae: 


АКС SIN(X) = ATN(X/SQR(X*X + 1)) 

АКС COS(X) = ATN(X/SQR(X*X + 1)) + 1.5708 

АВС SEC(X) = ATN(SQR(X*X —1)) + (SGN(X) — 1)*1.5708 
ARC CSC(X) = ATN(1/SQR(X*X) — 1)) + (SGN(X) — 1)*1.5708 
АКС COT(X) = — ATN(X) + 1.5708 

АКС SINH(X) = LOG(X + SQR(X*X + 1)) 

АКС COSH(X) = LOG(X + SQR(X*X - 1)) 

АКС TANH(X) = LOG((1 + X)/(1 — X)/2 

АКС SECH(X) = LOG(SQR(X*X + 1) + 1)⁄X) 

АКС CSCH(X) = LOG((SGN(X)*SQR(X*X + 1) + 1)/ X) 
АКС COTH(X) = LOG((X + 1/(Х — 1))/2 

COT(X) = 1/TAN(X) 

CSC(X) = 1/SIN(X) 

SEC(X) = 1/COS(X) 

COSH(X) = (EXP(X) + EXP( — X))/2 

COTH(X) = ЕХР(-Х)/(ЕХР(Х) - EXP( - X))*2 + 1 
CSCH(X) = 2/(EXP(X) — EXP(—X)) 

SECH(X) = 2/EXP(X) + EXP(- X)) 

SINH(X) = (EXP(X) — EXP(—X))/2 

TANH(X) = -ЕХР(-Х)/(ЕХР(Х) + ЕХР(-Х))*2 + 1 
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DIAGNOSTICS (COMMUN) 


READ/RESUME, NO DATA: The user has not provided any 
DATA statements or data but has used either the READ or 
RESTORE statements. 

FOR, NO NEXT: The user has constructed a FOR-TO loop but has 
not closed it with a NEXT statement. 

UNDIMENSIONED: Variables that were being used as matrices 
were not dimensioned. 

VECTOR + ARRAY: The same variable was used both as a vec- 
tor and an array 

VALUE OUTSIDE RANGE: A value has exceeded the bounds for 
that particular function. 

GOSUB NESTING: The user has used more levels of GOSUB 
nesting than the version of BASIC used allows. 

RETURN: A RETURN statement was executed before a GOSUB 
statement. 

DIVISION BY ZERO: Division by zero was tried. 

INVALID EXPONENT: A**B, where А<0 and B< >INT (В). 

LOG(- X): The log of a negative number was specified. 

SQR(- X): The square root of a negative number was specified. 

OUT OF DATA: The set of DATA elements has been exhausted 
and a READ statement 15 executed. 

ILLEGAL CONSTANT: A string (numeric) data element is read 

into a numenc (string) variable. 

FUNCTION PREVIOUSLY DEFINED: A user defined function 
(DEF statement) has been defined more than once in one pro- 


gram. 

ARRAY PREVIOUSLY DIMENSIONED: An array or a matrix 
has been defined more than once in one program. 

NO SUCH LINE £: A reference has been made to a nonexistent 

line number. 

FOR NESTING (MAX - X): Where the user has exceeded the 
maximum of nesting (where X is the maximum for that particu- 
lar version of BASIC). 

NESTING SAME INDEX: Where a user has constructed a nested 
FOR loop with two or more of the FOR-TO statements using 
the same running variable (index variable). 

WRONG NEXT: The matching NEXT statement must follow the 

corresponding FOR-TO statement. 

ILLEGAL NESTING: FOR-TO loops may be nested, but they 

must not overlap. 

OVERFLOW: A numeric constant exceeds the maximum single- 
precision floating-point value. 
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UNDERFLOW: A numeric constant is smaller than the minimum 
single-precision floating-point value. 
MEMORY EXCEEDED: The generated object code exceeds the 


bounds permitted by the computer and/or the version of 
BASIC being used. 


INCREASE PROGRAM SPEED 


1) Use GOSUB sparingly. 

2) Minimize GOTOs from one section to another section of 
the program. 

3) Check if FOR-NEXT is faster than or slower than IF- 
THEN loops. 

4) For simple integer multiplication such as 2*K,K +K will 
be faster. 

5) Check whether simple code is faster than or slower than 
complex expressions. 


SAVING SPACE 


To conserve space and limit the size of programs the following 
hints may be implemented. 


A) Use multiple statements per line number, if the version of 
BASIC allows. There is an overhead of about 5 bytes 
associated with each line in a program. 

В) Use integer values whenever possible as opposed to real 
numbers. 

C) Delete all unnecessary spaces from program lines. 

EXAMPLE: 
10 PRINT K, J; L 


Could be entered as 
10 PRINTK,J; L 


D) Use as few REM statements as possible. 

E) Use variables rather than constants, when the same con- 
stant is required more than a few times. 

F) А program that is one loop and is ended by either CTRL С 
or by running out of data usually does not require an END 
statement. | 

G) Re-use variables over and over if possible. 

H) Use go-subs instead of repeating lines of code. 
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SPEED 
The following programs may be timed to give an indication of 
processing speed. 


10 FORI=1 TO 1000 
20 LETX=X+1 


30 NEXTI 
40 PRINT X 
90 END 


Instead of line 20 being LET X = X+1, the user may try 20 
LET X = 10*X or 20 LET X = X/10. Multiplication and division are 
fairly complex software routines. Using the above two replacements 
will give a fair indication of this type of operation speed. 


226 


Appendix С 
ASCII Code 


ο ον с νο ΕΕ ΕΕ X NEUEN MF RENT‏ ڪڪ 


Hex Code Meaning Comments 
00 NUL null 
01 SOH start of heading 
02 STX start text 
03 ETX end text 
04 EOT end of transmission 
05 ENQ enquiry 
06 ACK acknowledgement 
07 BEL bell 
08 BS back space 
09 HT horizontal tab 
0A LF line feed 
OB VT vertical tab 
0C FF form feed 
0D CR carriage return 
OE SO shift out 
OF SI shift in 
10 DLE data link escape 
11 DC1 direct control 1 
12 DC2 direct control 2 
13 DC3 direct control 3 
14 DC4 direct control 4 
15 NAK negative acknowledgement 
16 SYN synchronous idle 
17 ETB end of transmission block 
18 CAN cancel 
19 EM end of medium 
1А ЗОВ substitute 
1B ESC escape 
1C FS form separator 
1D GS group separator 
1E RS record separator 
1F US unit separator 
20 (special) а 
21 ! s 
22 ” à: 
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ASCII 


Hex Code Meaning Comments 


to 
Ο» 
'є- + *—— Reset 


1111111111 ΕΙ 


«o QO σοι P> CON HI ФМ: 


M 
4» 
πμ mm CD S λιν”: 


ES 
12 
= 


~ 


E43 OE E d E EO EE GE GG Gg B gg: tb ЗОВ bbe bbe bebe 


сл 
ол 
мч < p< SIC tn > @ rg O Z 


ASCII 


Hex Code Meaning Comments 
5D ] 


РРР! 


ιτ Γι и 


С 
=> "rj 
CENE οσον ROU OD Smee rcm HO до сю > — 
г" 
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Appendix С 


Hexadecimal- Decimal 


Integer Conversion 


The following table provides for direct conversions 
between hexadecimal integers in the range 0—FFF and 
decimal integers in the range 0—4095. For conversion of larger 
integers, the table values may be added to the following 


figures: 


230 


Hexadecimal Decimal Hexadecimal Decimal 
01 000 4 096 20 000 131 072 
02 000 8 192 30 000 196 608 
03 000 12 288 40 000 262 144 
04 000 l6 384 50 000 327 600 
05 000 20 480 60 000 393 216 
06 000 24 576 70 000 458 752 
07 000 28 672 80 000 524 288 
08 000 32 768 90 000 589 824 
09 000 36 864 AO 000 655 360 
ОА 000 40 960 BO 000 720 896 
0B 000 45 056 CO 000 786 432 
OC 000 49 152 DO 000 851 968 
OD 000 53 248 EO 000 917 504 
OE 000 57 344 FO 000 983 040 
OF 000 61 440 100 000 1 048 576 
10 000 65 536 200 000 2 097 152 
11 000 69 632 300 000 3 145 728 
12 000 73 728 400 000 4 194 304 
13 000 77 824 500 000 5 242 880 
14 000 81 920 600 000 6 291 456 
15 000 86 016 700 000 7 340 032 
16 000 90 112 800 000 8 388 608 
17 000 94 208 900 000 9 437 184 
18 000 98 304 А00 000 10 485 760 
19 000 102 400 800 000 11 534 336 
ТА 000 106 496 C00 000 12 582 912 
18 000 110 592 000 000 13 631 488 
IC 000 114 688 ΕΟΟ 000 14 680 064 
1D 000 118 784 FOO 000 15 728 640 
ТЕ 000 122 880 1 000 000 16 777 216 
ІҒ 000 126 976 2 000 000 -33 554 432 


(рәпициоо) NOISH3ANOO H39341NI 1VWI230-1VWIO3QVX3H 
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ο اس‎ .. шш а ан = жы ш-а э зы лиана жә» а ааа Q..." а 


0/2 
090 
052 
Orc 


oez 
026 
012 
боё 


031 
031 
о! 
021 


081 
Ovi 
061 
081 


041 
091 
οσι 
071 


ос! 
Oel 
οι! 
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ё201 
9001 
064) 
¥260 


8560 
croO 
C740 
0160 


#630 
8/80 
2980 
9780 


0680 
7180 
8620 
2810 


99/0 
0520 
EZO 
81/0 


20/0 
9890 
0/90 
7590 


1201 
$001 
6860 
£450 


£660 
1760 
$260 
6060 


£680 
£280 
1980 
5780 


6680 
£180 
£640 
18/0 


6920 
6720 
5820 
4140 


10/0 
6890 
6990 
£690 


6101 
$001 
£860 
1/50 


$660 
6869 
$269 
4060 


1480 
5.80 
6520 
$780 


4280 
{180 
$620 
6440 


£920 
4%70 
1620 
$120 


6690 
£890 
4990 
1590 


2101 
1001 
6850 
6960 


£550 
4560 
1260 
$060 


5880 
£480 
4580 
1780 


6280 
6080 
£640 
4440 


19/0 
6720 
6270 
5120 


L690 
1890 
S990 
6790 


610: 
6660 
£360 
4960 


1560 
6560 
6160 
£060 


4880 
1/80 
6580 
6580 


ΕΖ80 
{080 
1620 
$220 


66/0 
EZO 
1440 
1120 


6690 
6450 
£990 
{#90 


$101 
8650 
¿860 
9550 


0550 
7560 
8160 
2060 


9880 
0/89 
7580 
8580 


2280 
9080 
06/0 
у//0 


86/0 
2720 
9270 
0140 


7690 
8/90 
¿990 
9790 


1101 
6660 
6450 
£960 


(769 
1560 
C160 
6680 


$580 
£989 
1580 
530 


6180 
£080 
£840 
1440 


6620 
6520 
8220 
4070 


1690 
6/90 
6699 
$790 


0:01 
7560 
8460 
¿960 


9760 
0560 
7160 
8580 


2680 
9980 
0580 
[43510 


8180 
2080 
98/0 
0220 


YSO 
3820 
2210 
52/0 


0690 
7290 
2590 
2790 
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Appendix Е 
Standard Logic Symbols 


POSITIVE OR NEGATIVE OR 
A A 
B D B D 
C C 
Boolean logic: Boolean logic: 
О=А+В+С О = A+ B+C 
Truth table: Truth table: 


Boolean logic: Boolean logic: 
D =АВС+АВС+АВС D = ABC + АВС + АВС 
Truth table: Truth table: 


0 
0 
0 
0 
1 
1 
1 
1 


1 
1 
1 
0 
1 
0 
0 
1 
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POSITIVE NOR NEGATIVE NOR 


A A 
B D B D 
C C 
Boolean logic: Boolean logic: 
D=A+B+C D=A+B+C 
Truth table: Truth table: 


011 
010 
010 
010 
110 
110 
110 
110 


1 
1 
1 
1 
L 
1 
1 
0 


POSITIVE EXCLUSIVE NOR NEGATIVE EXCLUSIVE NOR 
A A 
B D 8 D 
C C 
Boolean logic: Boolean logic: 
D = ABC + ABC + D = ABC + ABC + 
ABC + ABC + ABC АВС + ABC + ABC 
(АВС + АВ + АС + ВС) (АВС + АВ + АС + ВС) 
Truth table: Truth table: 


1 
0 
0 
1 
0 
1 
1 
1 


0 
0 
0 
1 
0 
1 
1 
0 
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POSITIVE AND NEGATIVE AND 


A A 
B D B D 
C C 


Boolean logic: Boolean logic: 
D = ABC D= ABC 
Truth table: Truth table: 


0 0 
0 1 
0 1 
0 1 
0 1 
0 1 
0 1 
0 1 


POSITIVE INCLUSIVE AND NEGATIVE INCLUSIVE AND 
A A 
B D B D 
C— C 
Boolean logic: Boolean logic: 
D=ABC+ABC+ | О = ABC + ABC + 
АВС + АВС + АВС АВС + АВС + АВС 
(АВС + АВ + АС + ВС) ( АВС + АВ + АС + ВС) 
Truth table: Truth table: 


D 
011 0 
011 1 
011 1 
0 0 0 
111 1 
110 0 
110 0 
111 0 
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POSITIVE МАМО 


NEGATIVE NAND 
A A 
B D B D 
C C 
Boolean logic: Boolean logic: 
D = ABC D = ABC 
Truth table: Truth table: 


1 
1 
1 
1 
0 
1 
1 
0 


— — — — ООО О 


POSITIVE INCLUSIVE NAND NEGATIVE INCLUSIVE NAND 
A A 
B D B D 
C C 
Boolean logic: Boolean logic: 
D = ABC + ABC + ABC D = АВС + ABC + АВС 
Truth table: Truth table: 


1 
0 
0 
1 
0 
1 
1 
1 
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POSITIVE ODD PARITY NEGATIVE ODD PARITY 


A 
B D 
C 


Boolean logic: Boolean logic: 
D= ABC + ABC + ABC + ABC D = ABC + ABC + АВС + ABC 
Truth table: Truth table: 


D 
0|0 
0| 1 
0 | 1 
010 
1|1 
110 
110 
111 


- — — О ООО 


D 
0 
1 
1 
0 
1 
0 
0 
1 


POSITIVE EVEN PARITY NEGATIVE EVEN PARITY 

A AN 

B Ф р В e D 

C C—O 
Boolean logic: Boolean logic: 

D = ABC + ABC + ABC + ABC D = ABG + ABC+ ABC+ ABC 
Truth table: Truth table: 


0 1 
0 0 
0 0 
0 1 
1 0 
1 1 
1 1 
1 0 


POSITIVE MAJORITY 


NEGATIVE MINORITY 
A A 
B D B D 
C C 
Boolean logic: Boolean logic: 
Dz AB + AC + BC D = AB + AC + BC 
Truth table: 


Truth table: 


POSITIVE NOT MAJORITY NEGATIVE NOT MINORITY 
A A 
B D B D 
C C 
Boolean logic: Boolean logic: 
D = AB + AC “ВС D = AB + AC + ВС 
Truth table: Truth table: 


a — — — О О О О 
OOO — O — — — 


L 
1 
1 
0 
1 
0 
0 
0 
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POSITIVE INVERTER NEGATIVE INVERTER 


A D A 

Boolean logic: Boolean logic: 
D=A D= A 

Truth table: Truth table: 
A| D AID 
0 | 1 0| 1 
110 110 
POSITIVE BUFFER NEGATIVE BUFFER 
A D A 

Boolean logic: Boolean logic: 
D= А D=A 

Tuti tame; Truth table: 
AJD ΑΙ Ό 
0|0 0| 0 


1|1 111 
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Appendix F 
Common Number Systems 


Common Number Systems. 


> о № + О 


«(0-400 +. OQ N — O 


5 
6 
7 
8 
9 
A 
B 
C 
D 
E 
F 
0 


— 
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А Мое to the Reader 


As a convenience, we are making 12 of the computer 
game programs ш this book available оп a single 
cassette tape suitable for use with the Radio Shack 
TRS-80 microcomputer. The tape includes every- 
thing required to play the 12 games in TRS-80 Level 
II BASIC. 

The tape is perfect for loading into the computer 
from any cassette tape player via the CLOAD com- 
mand used in the TRS-80, and it serves as a conve- 
nient and permanent storage medium for the games. 

One TAB TAPE contains all 12 of the game 
programs written for the TRS-80, and is priced at 
only $9.95, postpaid. (Two tapes ordered at one time 
cost only $18.95.) To order, simply send your remit- 
tance and order to TAB BOOKS, Blue Ridge Sum- 
mit, PA 17214. 
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